home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Dev / E / Goportscan_src.lha / GoPortscan_Src / servicetable.e < prev    next >
Encoding:
Text File  |  2003-02-02  |  255.1 KB  |  7,059 lines
  1. OPT MODULE
  2. OPT LARGE
  3.  
  4. /*
  5.     Description: Internal Service Table for Go Portscan!
  6.  
  7.     Quick Notes:
  8.  
  9.     1. This is probably a bad way of doing this, but it was simple and seems fast
  10.        enough.
  11.     2. The reason for multiple procedures is to help speed up searching. Ie if I
  12.        want to know what runs on port 10000, I call the procedure has it in it's
  13.        check range, rather than searching all 65535 ports.
  14. */
  15.  
  16.  
  17. EXPORT DEF servicedesc:PTR TO CHAR
  18.  
  19. ->#################################
  20.  
  21. EXPORT PROC service(portserv:LONG)
  22.  
  23. SELECT portserv
  24.     CASE 0
  25.         StrCopy(servicedesc, 'Reserved')
  26.     CASE 1
  27.         StrCopy(servicedesc, 'tcpmux : TCP Port Service Multiplexer')
  28.     CASE 2
  29.         StrCopy(servicedesc, 'compressnet : Management Utility')
  30.     CASE 3
  31.         StrCopy(servicedesc, 'compressnet : Compression Process')
  32.     CASE 5
  33.         StrCopy(servicedesc, 'rje : Remote Job Entry')
  34.     CASE 7
  35.         StrCopy(servicedesc, 'echo : Echo')
  36.     CASE 9
  37.         StrCopy(servicedesc, 'discard sink null : Discard')
  38.     CASE 11
  39.         StrCopy(servicedesc, 'systat users : Active Users')
  40.     CASE 13
  41.         StrCopy(servicedesc, 'daytime : Daytime')
  42.     CASE 15
  43.         StrCopy(servicedesc, 'netstat : NetStat')
  44.     CASE 17
  45.         StrCopy(servicedesc, 'qotd quote : Quote of The Day')
  46.     CASE 18
  47.         StrCopy(servicedesc, 'msp : Message Send Protocol')
  48.     CASE 19
  49.         StrCopy(servicedesc, 'chargen ttytst source : Character Generator')
  50.     CASE 20
  51.         StrCopy(servicedesc, 'ftp-data : File Transfer Protocol [Data Connection]')
  52.     CASE 21
  53.         StrCopy(servicedesc, 'ftp : File Transfer Protocol [Control Connection] ; \eb[TROJANS=Dolly, Blade Runner, Back Construction, Fore, Invisible FTP, Larva, WebEx, WinCrash]\en')
  54.     CASE 22
  55.         StrCopy(servicedesc, 'ssh : Secure Shell Login')
  56.     CASE 23
  57.         StrCopy(servicedesc, 'telnet : Telnet ; \eb[TROJANS=Tiny Telnet]\en')
  58.     CASE 24
  59.         StrCopy(servicedesc, 'priv-mail : Private Mail System')
  60.     CASE 25
  61.         StrCopy(servicedesc, 'smtp mail : Simple Mail Transfer Protocol ; \eb[TROJANS=AntiGen, Ajan, haebue Coceda, Happy 99, Kuang2, ProMail, Shtrilitz, Stealth, Tapiras, Terminator, WinPC, WinSpy]\en')
  62.     CASE 27
  63.         StrCopy(servicedesc, 'nsw-fe : NSW User System FE')
  64.     CASE 29
  65.         StrCopy(servicedesc, 'msg-icp : MSG ICP')
  66.     CASE 31
  67.         StrCopy(servicedesc, 'msg-auth : MSG Authentication ; \eb[TROJANS=Agent 31, Hackers Paradise, Master Paradise]\en')
  68.     CASE 33
  69.         StrCopy(servicedesc, 'dsp : Display Support Protocol')
  70.     CASE 35
  71.         StrCopy(servicedesc, 'priv-print : Private Print Server')
  72.     CASE 37
  73.         StrCopy(servicedesc, 'time timeserver : Time Server')
  74.     CASE 38
  75.         StrCopy(servicedesc, 'rap : Route Access Protocol')
  76.     CASE 39
  77.         StrCopy(servicedesc, 'rlp resource : Resource Location Protocol')
  78.     CASE 41
  79.         StrCopy(servicedesc, 'graphics : Graphics ; \eb[TROJANS=Deep Throat]\en')
  80.     CASE 42
  81.         StrCopy(servicedesc, 'name nameserver : Host Name Server')
  82.     CASE 43
  83.         StrCopy(servicedesc, 'whois nicname shois: Who Is')
  84.     CASE 44
  85.         StrCopy(servicedesc, 'mpm-flags : MPM FLAGS Protocol')
  86.     CASE 45
  87.         StrCopy(servicedesc, 'mpm : Message Processing Module [recv]')
  88.     CASE 46
  89.         StrCopy(servicedesc, 'mpm-snd : Message Processing Module [send]')
  90.     CASE 47
  91.         StrCopy(servicedesc, 'ni-ftp : NI FTP')
  92.     CASE 48
  93.         StrCopy(servicedesc, 'auditd : Digital Audit Daemon')
  94.     CASE 49
  95.         StrCopy(servicedesc, 'tacacs : Login Host Protocol')
  96.     CASE 50
  97.         StrCopy(servicedesc, 're-mail-ck : Remote Mail Checking')
  98.     CASE 51
  99.         StrCopy(servicedesc, 'la-maint : IMP Logical Address Maintainence')
  100.     CASE 52
  101.         StrCopy(servicedesc, 'xns-time : XNS Time Protocol')
  102.     CASE 53
  103.         StrCopy(servicedesc, 'domain nameserver : Domain Name Server')
  104.     CASE 54
  105.         StrCopy(servicedesc, 'xns-ch : XNS Clearinghouse')
  106.     CASE 55
  107.         StrCopy(servicedesc, 'isi-gl : ISI Graphics Language')
  108.     CASE 56
  109.         StrCopy(servicedesc, 'xns-auth : XNS Authentication')
  110.     CASE 57
  111.         StrCopy(servicedesc, 'mtp : Private Terminal Access')
  112.     CASE 58
  113.         StrCopy(servicedesc, 'xns-mail : XNS Mail ; \eb[TROJANS=DMSetup]\en')
  114.     CASE 59
  115.         StrCopy(servicedesc, 'priv-file : Any Private File Service')
  116.     CASE 61
  117.         StrCopy(servicedesc, 'n-mail : NI Mail')
  118.     CASE 62
  119.         StrCopy(servicedesc, 'acas : ACA Services')
  120.     CASE 63
  121.         StrCopy(servicedesc, 'whois++ : Who Is++')
  122.     CASE 64
  123.         StrCopy(servicedesc, 'covia : Communications Integrator (CI)')
  124.     CASE 65
  125.         StrCopy(servicedesc, 'tacacs-ds : TACACS Database Service')
  126.     CASE 66
  127.         StrCopy(servicedesc, 'sql*net : Oracle SQL*NET')
  128.     CASE 67
  129.         StrCopy(servicedesc, 'bootps bootp : Bootstrap Protocol Server')
  130.     CASE 68
  131.         StrCopy(servicedesc, 'bootpc : Bootstrap Protocol Client')
  132.     CASE 69
  133.         StrCopy(servicedesc, 'tftp : Trivial File Transfer Protocol')
  134.     CASE 70
  135.         StrCopy(servicedesc, 'gopher : Gopher')
  136.     CASE 71
  137.         StrCopy(servicedesc, 'netrjs-1 : Remote Job Service 1')
  138.     CASE 72
  139.         StrCopy(servicedesc, 'netrjs-2 : Remote Job Service 2')
  140.     CASE 73
  141.         StrCopy(servicedesc, 'netrjs-3 : Remote Job Service 3')
  142.     CASE 74
  143.         StrCopy(servicedesc, 'netrjs-4 : Remote Job Service 4')
  144.     CASE 75
  145.         StrCopy(servicedesc, 'priv-dial : Any Private Dial-Out Service')
  146.     CASE 76
  147.         StrCopy(servicedesc, 'deos : Distributed External Object Store')
  148.     CASE 77
  149.         StrCopy(servicedesc, 'priv-rje netrjs netjrs : Any Private RJE Service')
  150.     CASE 78
  151.         StrCopy(servicedesc, 'vettcp : vettcp')
  152.     CASE 79
  153.         StrCopy(servicedesc, 'finger : Finger ; \eb[TROJANS=FireHotcker]\en')
  154.     CASE 80
  155.         StrCopy(servicedesc, 'http www www-http : World Wide Web HTTP Server ; \eb[TROJANS=Executor, RingZero]\en')
  156.     CASE 81
  157.         StrCopy(servicedesc, 'hosts2-ns : HOSTS2 Name Server')
  158.     CASE 82
  159.         StrCopy(servicedesc, 'xfer : XFER Utility')
  160.     CASE 83
  161.         StrCopy(servicedesc, 'mit-ml-dev : MIT ML Device')
  162.     CASE 84
  163.         StrCopy(servicedesc, 'ctf : Common Trace Facility')
  164.     CASE 85
  165.         StrCopy(servicedesc, 'mit-ml-dev : MIT ML Device')
  166.     CASE 86
  167.         StrCopy(servicedesc, 'mfcobol : Micro Focus Cobol')
  168.     CASE 87
  169.         StrCopy(servicedesc, 'link : Private Terminal Link')
  170.     CASE 88
  171.         StrCopy(servicedesc, 'kerberos : Kerberos')
  172.     CASE 89
  173.         StrCopy(servicedesc, 'su-mit-tg : SU/MIT Telnet Gateway')
  174.     CASE 90
  175.         StrCopy(servicedesc, 'dnsix : DNSIX Securit Attribute Token Map ; \eb[TROJANS=Hidden Port 2.0]\en')
  176.     CASE 91
  177.         StrCopy(servicedesc, 'mit-dov : MIT Dover Spooler')
  178.     CASE 92
  179.         StrCopy(servicedesc, 'npp : Network Printing Protocol')
  180.     CASE 93
  181.         StrCopy(servicedesc, 'dcp : Device Control Protocol')
  182.     CASE 94
  183.         StrCopy(servicedesc, 'objcall : Tivoli Object Dispatcher')
  184.     CASE 95
  185.         StrCopy(servicedesc, 'supdup : SUPDUP')
  186.     CASE 96
  187.         StrCopy(servicedesc, 'dixie : DIXIE Protocol Specification')
  188.     CASE 97
  189.         StrCopy(servicedesc, 'swift-rvf : Swift Remote Virtual File Protocol')
  190.     CASE 98
  191.         StrCopy(servicedesc, 'linuxconf : Linuxconf Configuration System ; tacnews : TAC News')
  192.     CASE 99
  193.         StrCopy(servicedesc, 'metagram : Metagram Relay ; \eb[TROJANS=Hidden Port]\en')
  194.     CASE 100
  195.         StrCopy(servicedesc, 'newacct : New Account [unauthorised use]')
  196.     CASE 101
  197.         StrCopy(servicedesc, 'hostname hostnames : NIC Host Name Server')
  198.     CASE 102
  199.         StrCopy(servicedesc, 'iso-tsap : ISO-TSAP Class 0')
  200.     CASE 103
  201.         StrCopy(servicedesc, 'x400 : ISO Mail ; gppitnp : Genesis Point to Point Trans Net')
  202.     CASE 104
  203.         StrCopy(servicedesc, 'x400-snd : ISO Mail ; acr-nema : ACR-NEMA Digital Imag. & Comm. 300')
  204.     CASE 105
  205.         StrCopy(servicedesc, 'cso : CCSO Name Server Protocol ; csnet-ns : Mailbox Nameserver')
  206.     CASE 106
  207.         StrCopy(servicedesc, '3com-tsmux : 3COM-TSMUX ; poppassd : Eudora')
  208.     CASE 107
  209.         StrCopy(servicedesc, 'rtelnet : Remote Telnet Service')
  210.     CASE 108
  211.         StrCopy(servicedesc, 'snagas : SNA Gateway Access Server')
  212.     CASE 109
  213.         StrCopy(servicedesc, 'pop pop2 postoffice : Post Office Protocol - Version 2 (Mail Server)')
  214.     CASE 110
  215.         StrCopy(servicedesc, 'pop3 : Post Office Protocol - Ver 3 (Mail Server) ; \eb[TROJANS=ProMail]\en')
  216.     CASE 111
  217.         StrCopy(servicedesc, 'sunrpc portmapper : Sun Remote Procedure Call/Portmapper')
  218.     CASE 112
  219.         StrCopy(servicedesc, 'mcidas : McIDAS Data Transmission Protocol')
  220.     CASE 113
  221.         StrCopy(servicedesc, 'ident auth : Authentication Service ; \eb[TROJANS=Kazimas]\en')
  222.     CASE 114
  223.         StrCopy(servicedesc, 'audionews : Audio News Multicast')
  224.     CASE 115
  225.         StrCopy(servicedesc, 'sftp : Simple File Transfer Protocol')
  226.     CASE 116
  227.         StrCopy(servicedesc, 'ansanotify : ANSA REX Notify')
  228.     CASE 117
  229.         StrCopy(servicedesc, 'uucp-path : UNIX to UNIX Copy Path Service')
  230.     CASE 118
  231.         StrCopy(servicedesc, 'sqlserv : Structured Query Language Server')
  232.     CASE 119
  233.         StrCopy(servicedesc, 'nntp readnews untp : Network News Transfer Protocol (USENET) ; \eb[TROJANS=Happy 99]\en')
  234.     CASE 120
  235.         StrCopy(servicedesc, 'cfdptkt : CFDPTKT')
  236.     CASE 121
  237.         StrCopy(servicedesc, 'erpc : Encore Expedited Remote Procedure Call ; \eb[TROJANS=Jammer Killah]\en')
  238.     CASE 122
  239.         StrCopy(servicedesc, 'smakynet : SMAKYNET')
  240.     CASE 123
  241.         StrCopy(servicedesc, 'ntp : Network Time Protocol')
  242.     CASE 124
  243.         StrCopy(servicedesc, 'ansatrader : ANSA REX Trader')
  244.     CASE 125
  245.         StrCopy(servicedesc, 'locus-map : Locus PC-Interface Net Map Service')
  246.     CASE 126
  247.         StrCopy(servicedesc, 'nxedit : NXEdit ; unitary : Unisys Unitary Logn (OBSOLETE!!)')
  248.     CASE 127
  249.         StrCopy(servicedesc, 'locus-con : Locus PC-Interface Conn Server')
  250.     CASE 128
  251.         StrCopy(servicedesc, 'gss-xlicen : GSS X License Verification')
  252.     CASE 129
  253.         StrCopy(servicedesc, 'pwdgen : Password Generator Protocol')
  254.     CASE 130
  255.         StrCopy(servicedesc, 'cisco-fna : Cisco FNATIVE')
  256.     CASE 131
  257.         StrCopy(servicedesc, 'cisco-tna : Cisco TNATIVE')
  258.     CASE 132
  259.         StrCopy(servicedesc, 'cisco-sys : Cisco SYSMAINT')
  260.     CASE 133
  261.         StrCopy(servicedesc, 'statsrv : Statistics Service')
  262.     CASE 134
  263.         StrCopy(servicedesc, 'ingres-net : INGRES-NET Servce')
  264.     CASE 135
  265.         StrCopy(servicedesc, 'epmap : DCE Endpoint Resolution')
  266.     CASE 136
  267.         StrCopy(servicedesc, 'profile : Profile Naming System')
  268.     CASE 137
  269.         StrCopy(servicedesc, 'netbios-ns : NetBIOS Name Service (SAMBA/Windows Networking)')
  270.     CASE 138
  271.         StrCopy(servicedesc, 'netbios-dgm : NetBIOS Datagram Service (SAMBA/Windows Networking)')
  272.     CASE 139
  273.         StrCopy(servicedesc, 'netbios-ssn : NetBIOS Session Service (SAMBA/Windows Networking)')
  274.     CASE 140
  275.         StrCopy(servicedesc, 'emfis-data : EMFIS [Data Connection]')
  276.     CASE 141
  277.         StrCopy(servicedesc, 'emfis-cntl : EMFIS [Control Connection]')
  278.     CASE 142
  279.         StrCopy(servicedesc, 'bl-idm : Britton Lee IDM')
  280.     CASE 143
  281.         StrCopy(servicedesc, 'imap imap2: Interactive Mail Access Protocol (V2)')
  282.     CASE 144
  283.         StrCopy(servicedesc, 'news : Window System ; uma : Universal Management Architecure')
  284.     CASE 145
  285.         StrCopy(servicedesc, 'uaac : UAAC Protocol')
  286.     CASE 146
  287.         StrCopy(servicedesc, 'iso-tp0 : ISO-TP0 ; \eb[TROJANS=Infector 1.3]\en')
  288.     CASE 147
  289.         StrCopy(servicedesc, 'iso-ip : ISO-IP')
  290.     CASE 148
  291.         StrCopy(servicedesc, 'jargon : Jargon')
  292.     CASE 149
  293.         StrCopy(servicedesc, 'aed-512 : AED 512 Emulation Service')
  294.     CASE 150
  295.         StrCopy(servicedesc, 'sql-net : Structured Query Language Net')
  296.     CASE 151
  297.         StrCopy(servicedesc, 'hems : HEMS')
  298.     CASE 152
  299.         StrCopy(servicedesc, 'bftp : Background File Transfer Protocol')
  300.     CASE 153
  301.         StrCopy(servicedesc, 'sgmp : SGMP')
  302.     CASE 154
  303.         StrCopy(servicedesc, 'netsc-prod : NETSC-PROD')
  304.     CASE 155
  305.         StrCopy(servicedesc, 'netsc-dev : NETSC-DEV')
  306.     CASE 156
  307.         StrCopy(servicedesc, 'sqlsrv : Structured Query Language Service')
  308.     CASE 157
  309.         StrCopy(servicedesc, 'knet-cmp : KNET/VM Command/Message Protocol')
  310.     CASE 158
  311.         StrCopy(servicedesc, 'pcmail-srv : PCMail Server')
  312.     CASE 159
  313.         StrCopy(servicedesc, 'nss-routing : NSS Routing')
  314.     CASE 160
  315.         StrCopy(servicedesc, 'sgmp-traps : SGMP Traps')
  316.     CASE 161
  317.         StrCopy(servicedesc, 'snmp : Simple Network Management Protocol')
  318.     CASE 162
  319.         StrCopy(servicedesc, 'snmptrap : Simple Network Management Protocol Traps')
  320.     CASE 163
  321.         StrCopy(servicedesc, 'cmip-man : CMIP/TCP Manager')
  322.     CASE 164
  323.         StrCopy(servicedesc, 'cmip-agent : CMIP/TCP Agent')
  324.     CASE 165
  325.         StrCopy(servicedesc, 'xns-courier : Xerox NS Courier')
  326.     CASE 166
  327.         StrCopy(servicedesc, 's-net : Sirius Systems')
  328.     CASE 167
  329.         StrCopy(servicedesc, 'namp : NAMP')
  330.     CASE 168
  331.         StrCopy(servicedesc, 'rsvd : RSVD')
  332.     CASE 169
  333.         StrCopy(servicedesc, 'send : SEND')
  334.     CASE 170
  335.         StrCopy(servicedesc, 'print-srv : Network Postscript')
  336.     CASE 171
  337.         StrCopy(servicedesc, 'multiplex : Network Innovations Multiplex')
  338.     CASE 172
  339.         StrCopy(servicedesc, 'cl/1 : Network Innovations CL/1')
  340.     CASE 173
  341.         StrCopy(servicedesc, 'xyplex-mux : Xyplex Multiplex')
  342.     CASE 174
  343.         StrCopy(servicedesc, 'mailq : Mailer Transport Queue for ZMailer')
  344.     CASE 175
  345.         StrCopy(servicedesc, 'vmnet : VMNET')
  346.     CASE 176
  347.         StrCopy(servicedesc, 'genrad-mux : GENRAD Multiplex')
  348.     CASE 177
  349.         StrCopy(servicedesc, 'xdmcp : X Display Manager Control Protocol')
  350.     CASE 178
  351.         StrCopy(servicedesc, 'nextstep : NextStep Window Server')
  352.     CASE 179
  353.         StrCopy(servicedesc, 'bgp : Border Gateway Protocol')
  354.     CASE 180
  355.         StrCopy(servicedesc, 'ris : Intergraph')
  356.     CASE 181
  357.         StrCopy(servicedesc, 'unify : Unify')
  358.     CASE 182
  359.         StrCopy(servicedesc, 'audit : Unisys Audit SITP')
  360.     CASE 183
  361.         StrCopy(servicedesc, 'ocbinder : OCBinder')
  362.     CASE 184
  363.         StrCopy(servicedesc, 'ocserver : OCServer')
  364.     CASE 185
  365.         StrCopy(servicedesc, 'remote-kis : Remote KIS Protocol')
  366.     CASE 186
  367.         StrCopy(servicedesc, 'kis : KIS Protocol')
  368.     CASE 187
  369.         StrCopy(servicedesc, 'aci : Applications Communcation Interface')
  370.     CASE 188
  371.         StrCopy(servicedesc, 'mumps : Plus Fives MUMPS')
  372.     CASE 189
  373.         StrCopy(servicedesc, 'qft : Queued File Transport')
  374.     CASE 190
  375.         StrCopy(servicedesc, 'gacp : Gateway Access Control Protocol')
  376.     CASE 191
  377.         StrCopy(servicedesc, 'prospero : Prospero Directory Service')
  378.     CASE 192
  379.         StrCopy(servicedesc, 'osu-nms : OSU Network Montoring System')
  380.     CASE 193
  381.         StrCopy(servicedesc, 'srmp : Spider Remote Monitoring Protocol')
  382.     CASE 194
  383.         StrCopy(servicedesc, 'irc : Internet Relay Chat')
  384.     CASE 195
  385.         StrCopy(servicedesc, 'dn6-nlm-aud : DNSIX Network Level Module Audit')
  386.     CASE 196
  387.         StrCopy(servicedesc, 'dn6-smm-red : DNSIX Session Mgt Module Audit Redir')
  388.     CASE 197
  389.         StrCopy(servicedesc, 'dls : Directory Location Service')
  390.     CASE 198
  391.         StrCopy(servicedesc, 'dls-mon : Directory Location Service Monitor')
  392.     CASE 199
  393.         StrCopy(servicedesc, 'smux : Simple Network Management Protocol UNIX Multiplexer')
  394.     CASE 200
  395.         StrCopy(servicedesc, 'src : IBM System Resource Controller')
  396.     DEFAULT
  397.         StrCopy(servicedesc, 'UNKNOWN')
  398. ENDSELECT
  399.  
  400. ENDPROC
  401.  
  402. ->###################################################
  403.  
  404. EXPORT PROC service2(portserv:LONG)
  405.  
  406. SELECT portserv
  407.     CASE 201
  408.         StrCopy(servicedesc, 'at-rtmp : AppleTalk Routing Maintainence')
  409.     CASE 202
  410.         StrCopy(servicedesc, 'at-nbp : AppleTalk Name Binding')
  411.     CASE 203
  412.         StrCopy(servicedesc, 'at-3 : AppleTalk [unused]')
  413.     CASE 204
  414.         StrCopy(servicedesc, 'at-echo : AppleTalk Echo')
  415.     CASE 205
  416.         StrCopy(servicedesc, 'at-5 : AppleTalk [unused]')
  417.     CASE 206
  418.         StrCopy(servicedesc, 'at-zis : AppleTalk Zone Information Service')
  419.     CASE 207
  420.         StrCopy(servicedesc, 'at-7 : AppleTalk [unused]')
  421.     CASE 208
  422.         StrCopy(servicedesc, 'at-8 : AppleTalk [unused]')
  423.     CASE 209
  424.         StrCopy(servicedesc, 'qmtp tam : Quick Mail Transfer Protocol ; Trivial Authenticated Mail Protocol')
  425.     CASE 210
  426.         StrCopy(servicedesc, 'z3950 wais: NISO Z39.50 database')
  427.     CASE 211
  428.         StrCopy(servicedesc, '914c/g : Texas Instruments 914C/G Terminal')
  429.     CASE 212
  430.         StrCopy(servicedesc, 'anet : ATEXSSTR')
  431.     CASE 213
  432.         StrCopy(servicedesc, 'ipx : IPX (Netware)')
  433.     CASE 214
  434.         StrCopy(servicedesc, 'vmpwscs : VM PWSCS')
  435.     CASE 215
  436.         StrCopy(servicedesc, 'softpc : Insignia Solutions')
  437.     CASE 216
  438.         StrCopy(servicedesc, 'cailic atls: Computer Asscociates Internatonal License Server ; Access Technology License Server')
  439.     CASE 217
  440.         StrCopy(servicedesc, 'dbase : dBASE UNIX')
  441.     CASE 218
  442.         StrCopy(servicedesc, 'mpp : Netix Message Posting Protocol')
  443.     CASE 219
  444.         StrCopy(servicedesc, 'uarps : Unisys ARPs')
  445.     CASE 220
  446.         StrCopy(servicedesc, 'imap3 : Interactive Mail Access Protocol v3')
  447.     CASE 221
  448.         StrCopy(servicedesc, 'fln-spx : Berkeley rlogind with SPX auth')
  449.     CASE 222
  450.         StrCopy(servicedesc, 'rsh-spx : Berkeley rshd wth SPX auth ; masqdialer : Masqdialer')
  451.     CASE 223
  452.         StrCopy(servicedesc, 'cdc : Certificate Distribution Centre')
  453.     CASE 224
  454.         StrCopy(servicedesc, 'masqdialer : Masqdialer')
  455. ->    CASE 225 TO 241
  456. ->        StrCopy(servicedesc, ' : ')
  457.  
  458.     CASE 242
  459.         StrCopy(servicedesc, 'direct : Direct')
  460.     CASE 243
  461.         StrCopy(servicedesc, 'sur-meas : Survey Measurement')
  462.     CASE 244
  463.         StrCopy(servicedesc, 'inbusiness dayna : InBusiness ; dayna')
  464.     CASE 245
  465.         StrCopy(servicedesc, 'link : LINK')
  466.     CASE 246
  467.         StrCopy(servicedesc, 'dsp3270 : Display Systems Protocol')
  468.     CASE 247
  469.         StrCopy(servicedesc, 'subntbcst_tftp : SUBNTBCST_TFTP')
  470.     CASE 248
  471.         StrCopy(servicedesc, 'bhfhs : bhfhs')
  472. ->    CASE 249 TO 255
  473. ->        StrCopy(servicedesc, ' : ')
  474.     CASE 256
  475.         StrCopy(servicedesc, 'rap : RAP')
  476.     CASE 257
  477.         StrCopy(servicedesc, 'set : Secure Electronic Transaction')
  478.     CASE 258
  479.         StrCopy(servicedesc, 'yak-chat : Yak Winsock Personal Chat')
  480.     CASE 259
  481.         StrCopy(servicedesc, 'esro-gen : Efficient Short Remote Operations')
  482.     CASE 260
  483.         StrCopy(servicedesc, 'openport : OpenPort')
  484.     CASE 261
  485.         StrCopy(servicedesc, 'nsiiops : IIOP Name Service over TLS/SSL')
  486.     CASE 262
  487.         StrCopy(servicedesc, 'arcisdms : Arcisdms')
  488.     CASE 263
  489.         StrCopy(servicedesc, 'hdap : HDAP')
  490.     CASE 264
  491.         StrCopy(servicedesc, 'bgmp : BGMP')
  492.     CASE 265
  493.         StrCopy(servicedesc, 'x-bone-ctl : X-Bone CTL')
  494.     CASE 266
  495.         StrCopy(servicedesc, 'sst : SCSI on ST')
  496.     CASE 267
  497.         StrCopy(servicedesc, 'td-service : Tobit David Service Layer')
  498.     CASE 268
  499.         StrCopy(servicedesc, 'td-replica : Tobt David Replica')
  500. ->    CASE 269 TO 279
  501. ->        StrCopy(servicedesc, ' : ')
  502.     CASE 280
  503.         StrCopy(servicedesc, 'http-mgmt : HTTP-MGMT')
  504.     CASE 281
  505.         StrCopy(servicedesc, 'personal-link : Personal Link')
  506.     CASE 282
  507.         StrCopy(servicedesc, 'cableport-ax : Cable Port A/X')
  508.     CASE 283
  509.         StrCopy(servicedesc, 'rescap : rescap')
  510.     CASE 284
  511.         StrCopy(servicedesc, 'corerjd : corerjd')
  512. ->    CASE 285
  513. ->        StrCopy(servicedesc, ' : ')
  514.     CASE 286
  515.         StrCopy(servicedesc, 'fxp-1 : FXP-1')
  516.     CASE 287
  517.         StrCopy(servicedesc, 'k-block : K-BLOCK')
  518. ->    CASE 288 TO 300
  519. ->        StrCopy(servicedesc, ' : ')
  520.  
  521.  
  522. ->    CASE 301 TO 307
  523. ->        StrCopy(servicedesc, ' : ')
  524.     CASE 308
  525.         StrCopy(servicedesc, 'novastorbackup : Novastor Backup')
  526.     CASE 309
  527.         StrCopy(servicedesc, 'entrusttime : EntrustTime')
  528.     CASE 310
  529.         StrCopy(servicedesc, 'bhmds : bhmds')
  530.     CASE 311
  531.         StrCopy(servicedesc, 'asip-webadmin : AppleShare IP WebAdmin')
  532.     CASE 312
  533.         StrCopy(servicedesc, 'vslmp : VSLMP')
  534.     CASE 313
  535.         StrCopy(servicedesc, 'magenta-logic : Magenta Logic')
  536.     CASE 314
  537.         StrCopy(servicedesc, 'opalis-robot : Opalis Robot')
  538.     CASE 315
  539.         StrCopy(servicedesc, 'dpsi : DPSI')
  540.     CASE 316
  541.         StrCopy(servicedesc, 'decauth : DEC Auth')
  542.     CASE 317
  543.         StrCopy(servicedesc, 'zannet : Zannet')
  544.     CASE 318
  545.         StrCopy(servicedesc, 'pkix-timestamp : PKIX TimeStamp')
  546.     CASE 319
  547.         StrCopy(servicedesc, 'ptp-event : PTP Event')
  548.     CASE 320
  549.         StrCopy(servicedesc, 'ptp-general : PTP General')
  550.     CASE 321
  551.         StrCopy(servicedesc, 'pip : PIP')
  552.     CASE 322
  553.         StrCopy(servicedesc, 'rtsps : RTSPS')
  554. ->    CASE 323 TO 332
  555. ->        StrCopy(servicedesc, ' : ')
  556.     CASE 333
  557.         StrCopy(servicedesc, 'texar : Texar Security Port')
  558. ->    CASE 334 TO 343
  559. ->        StrCopy(servicedesc, ' : ')
  560.     CASE 344
  561.         StrCopy(servicedesc, 'pdap : Prospero Data Access Protocol')
  562.     CASE 345
  563.         StrCopy(servicedesc, 'pawserv : Perf Analysis Workbench')
  564.     CASE 346
  565.         StrCopy(servicedesc, 'zserv : Zebra Server')
  566.     CASE 347
  567.         StrCopy(servicedesc, 'fatserv : Fatmen Server')
  568.     CASE 348
  569.         StrCopy(servicedesc, 'csi-sgwp : Cabletron Management Protocol')
  570.     CASE 349
  571.         StrCopy(servicedesc, 'mftp : MFTP')
  572.     CASE 350
  573.         StrCopy(servicedesc, 'matip-type-a : MATIP Type A')
  574.     CASE 351
  575.         StrCopy(servicedesc, 'matip-type-b : MATIP Type B ; bhoetty : bhoetty')
  576.     CASE 352
  577.         StrCopy(servicedesc, 'dtag-ste-sb : DTAG')
  578.     CASE 353
  579.         StrCopy(servicedesc, 'ndsauth : NDSAUTH')
  580.     CASE 354
  581.         StrCopy(servicedesc, 'bh611 : BH611')
  582.     CASE 355
  583.         StrCopy(servicedesc, 'datex-asn : DATEX-ASN')
  584.     CASE 356
  585.         StrCopy(servicedesc, 'cloanto-net-1 : Cloanto Net 1')
  586.     CASE 357
  587.         StrCopy(servicedesc, 'bhevent : bhevent')
  588.     CASE 358
  589.         StrCopy(servicedesc, 'shrinkwrap : Shrinkwrap')
  590.     CASE 359
  591.         StrCopy(servicedesc, 'tenebris_nts : Tenebris Network Trace Service')
  592.     CASE 360
  593.         StrCopy(servicedesc, 'scoi2odialog : SCOi2oDialog')
  594.     CASE 361
  595.         StrCopy(servicedesc, 'semantix : Semantix')
  596.     CASE 362
  597.         StrCopy(servicedesc, 'srssend : SRS Send')
  598.     CASE 363
  599.         StrCopy(servicedesc, 'rsvp_tunnel : RSVP Tunnel')
  600.     CASE 364
  601.         StrCopy(servicedesc, 'aurora-cmgr : Aurora CMGR')
  602.     CASE 365
  603.         StrCopy(servicedesc, 'dtk : Deception Tool Kit')
  604.     CASE 366
  605.         StrCopy(servicedesc, 'odmr : ODMR')
  606.     CASE 367
  607.         StrCopy(servicedesc, 'mortgageware : MortgageWare')
  608.     CASE 368
  609.         StrCopy(servicedesc, 'qbikgdp : QbikGDP')
  610.     CASE 369
  611.         StrCopy(servicedesc, 'rpc2portmap : Remote Procedure Call 2 Portmap (coda portmapper)')
  612.     CASE 370
  613.         StrCopy(servicedesc, 'codaauth2 : CODA Authentication Server')
  614.     CASE 371
  615.         StrCopy(servicedesc, 'clearcase : Clearcase ; albd : Location Broker')
  616.     CASE 372
  617.         StrCopy(servicedesc, 'ulistproc : ListProcessor ; ulistserv : UNIX Listserv')
  618.     CASE 373
  619.         StrCopy(servicedesc, 'legent-1 : Legent Corporation (now Computer Assosciates)')
  620.     CASE 374
  621.         StrCopy(servicedesc, 'legent-2 : Legent Corporation (now Computer Asccociates)')
  622.     CASE 375
  623.         StrCopy(servicedesc, 'hassle : Hassle')
  624.     CASE 376
  625.         StrCopy(servicedesc, 'nip : Amiga Envoy Network Inquiry Proto')
  626.     CASE 377
  627.         StrCopy(servicedesc, 'tnetos : NEC Corporation')
  628.     CASE 378
  629.         StrCopy(servicedesc, 'dsetos : NEC Corporation')
  630.     CASE 379
  631.         StrCopy(servicedesc, 'is99c : TIA/EIA/IS-99 modem client')
  632.     CASE 380
  633.         StrCopy(servicedesc, 'is99s : TIA/EIA/IS-99 modem server')
  634.     CASE 381
  635.         StrCopy(servicedesc, 'hp-collector : hp performance data collector')
  636.     CASE 382
  637.         StrCopy(servicedesc, 'hp-managed-node : hp performance data managed node')
  638.     CASE 383
  639.         StrCopy(servicedesc, 'hp-alarm-mgr : hp performance data alarm manager')
  640.     CASE 384
  641.         StrCopy(servicedesc, 'arns : A Remote Network Server System')
  642.     CASE 385
  643.         StrCopy(servicedesc, 'ibm-app : IBM Application')
  644.     CASE 386
  645.         StrCopy(servicedesc, 'asa : ASA Message Router Object')
  646.     CASE 387
  647.         StrCopy(servicedesc, 'aurp : AppleTalk Update Based Routing Protocol')
  648.     CASE 388
  649.         StrCopy(servicedesc, 'unidata-ldm : UniData LDM Version 4')
  650.     CASE 389
  651.         StrCopy(servicedesc, 'ldap : Lightweight Directory Access Protocol')
  652.     CASE 390
  653.         StrCopy(servicedesc, 'uis : UIS')
  654.     CASE 391
  655.         StrCopy(servicedesc, 'synotics-relay : SynOptics SNMP Relay Port')
  656.     CASE 392
  657.         StrCopy(servicedesc, 'synotics-broker : SynOptics Port Broker')
  658.     CASE 393
  659.         StrCopy(servicedesc, 'meta5 dis : Meta5 ; Data Interpretation System')
  660.     CASE 394
  661.         StrCopy(servicedesc, 'embl-ndt : EMBL Nucleic Data Transfer')
  662.     CASE 395
  663.         StrCopy(servicedesc, 'netcp : NETScout Control Protocol')
  664.     CASE 396
  665.         StrCopy(servicedesc, 'netware-ip : Novell Netware over IP')
  666.     CASE 397
  667.         StrCopy(servicedesc, 'mptn : Multi Protocol Trans Net')
  668.     CASE 398
  669.         StrCopy(servicedesc, 'kryptolan : Kryptolan')
  670.     CASE 399
  671.         StrCopy(servicedesc, 'iso-tsap-c2 : ISO Transport Class 2 Non-Control over TCP')
  672.     CASE 400
  673.         StrCopy(servicedesc, 'work-sol : Workstation Solutions')
  674.     DEFAULT
  675.         StrCopy(servicedesc, 'UNKNOWN')
  676.  
  677. ENDSELECT
  678.  
  679. ENDPROC
  680.  
  681.  
  682. EXPORT PROC service3(portserv:LONG)
  683.  
  684. SELECT portserv
  685.     CASE 401
  686.         StrCopy(servicedesc, 'ups : Uninterruptible Power Supply')
  687.     CASE 402
  688.         StrCopy(servicedesc, 'genie : Genie Protocol')
  689.     CASE 403
  690.         StrCopy(servicedesc, 'decap : decap')
  691.     CASE 404
  692.         StrCopy(servicedesc, 'nced : nced')
  693.     CASE 405
  694.         StrCopy(servicedesc, 'ncld : ncld')
  695.     CASE 406
  696.         StrCopy(servicedesc, 'imsp : Interactive Mail Support Protocol')
  697.     CASE 407
  698.         StrCopy(servicedesc, 'timbuktu : Timbuktu Remote Desktop Viewer')
  699.     CASE 408
  700.         StrCopy(servicedesc, 'prm-sm : Prospero Resource Manager Sys. Man.')
  701.     CASE 409
  702.         StrCopy(servicedesc, 'prm-nm : Prospero Resource Manager Node Man.')
  703.     CASE 410
  704.         StrCopy(servicedesc, 'decladebug : DECLadebug Remote Debug Protocol')
  705.     CASE 411
  706.         StrCopy(servicedesc, 'rmt : Remote MT Protocol')
  707.     CASE 412
  708.         StrCopy(servicedesc, 'synoptics-trap : Trap Convention Port')
  709.     CASE 413
  710.         StrCopy(servicedesc, 'smsp : Storage Management Services Protocol')
  711.     CASE 414
  712.         StrCopy(servicedesc, 'infoseek : InfoSeek')
  713.     CASE 415
  714.         StrCopy(servicedesc, 'bnet : BNet')
  715.     CASE 416
  716.         StrCopy(servicedesc, 'silverplatter : Silverplatter')
  717.     CASE 417
  718.         StrCopy(servicedesc, 'onmux : Onmux')
  719.     CASE 418
  720.         StrCopy(servicedesc, 'hyper-g : Hyper-G')
  721.     CASE 419
  722.         StrCopy(servicedesc, 'ariel1 : Ariel')
  723.     CASE 420
  724.         StrCopy(servicedesc, 'smpte : SMPTE')
  725.     CASE 421
  726.         StrCopy(servicedesc, 'ariel2 : Ariel')
  727.     CASE 422
  728.         StrCopy(servicedesc, 'ariel3 : Ariel')
  729.     CASE 423
  730.         StrCopy(servicedesc, 'opc-job-start : IBM Operations Planning and Control Start')
  731.     CASE 424
  732.         StrCopy(servicedesc, 'opc-job-track : IBM Operations Planning and Control Track')
  733.     CASE 425
  734.         StrCopy(servicedesc, 'icad-el : ICAD')
  735.     CASE 426
  736.         StrCopy(servicedesc, 'smartsdp : smartsdp')
  737.     CASE 427
  738.         StrCopy(servicedesc, 'svrloc : Server Location')
  739.     CASE 428
  740.         StrCopy(servicedesc, 'ocs_cmu : OCS_CMU')
  741.     CASE 429
  742.         StrCopy(servicedesc, 'ocs_amu : OCS_AMU')
  743.     CASE 430
  744.         StrCopy(servicedesc, 'utmpsd : UTMPSD')
  745.     CASE 431
  746.         StrCopy(servicedesc, 'utmpcd : UTMPCD')
  747.     CASE 432
  748.         StrCopy(servicedesc, 'iasd : IASD')
  749.     CASE 433
  750.         StrCopy(servicedesc, 'nnsp : Network News Sending Protocol (usenet)')
  751.     CASE 434
  752.         StrCopy(servicedesc, 'mobileip-agent : MobileIP-Agent')
  753.     CASE 435
  754.         StrCopy(servicedesc, 'mobilip-mn : MobilIP-MN')
  755.     CASE 436
  756.         StrCopy(servicedesc, 'dna-cml : DNA-CML')
  757.     CASE 437
  758.         StrCopy(servicedesc, 'comscm : comscm')
  759.     CASE 438
  760.         StrCopy(servicedesc, 'dsfgw : dsfgw')
  761.     CASE 439
  762.         StrCopy(servicedesc, 'dasp : dasp')
  763.     CASE 440
  764.         StrCopy(servicedesc, 'sgcp : sgcp')
  765.     CASE 441
  766.         StrCopy(servicedesc, 'decvms-sysmgt : decvms-sysmgt')
  767.     CASE 442
  768.         StrCopy(servicedesc, 'cvc_hostd : Network Console')
  769.     CASE 443
  770.         StrCopy(servicedesc, 'https : http protocol over TLS/SSL')
  771.     CASE 444
  772.         StrCopy(servicedesc, 'snpp : Simple Network Paging Protocol')
  773.     CASE 445
  774.         StrCopy(servicedesc, 'microsoft-ds : Microsoft-DS')
  775.     CASE 446
  776.         StrCopy(servicedesc, 'ddm-rdb : DDM-RDB')
  777.     CASE 447
  778.         StrCopy(servicedesc, 'ddm-dfm : DDM-RFM')
  779.     CASE 448
  780.         StrCopy(servicedesc, 'ddm-ssl : DDM-SSL')
  781.     CASE 449
  782.         StrCopy(servicedesc, 'as-servermap : AS Server Mapper')
  783.     CASE 450
  784.         StrCopy(servicedesc, 'tserver : TServer')
  785.     CASE 451
  786.         StrCopy(servicedesc, 'sfs-smp-net : Cray Network Semaphore server')
  787.     CASE 452
  788.         StrCopy(servicedesc, 'sfs-config : Cray SFS config server')
  789.     CASE 453
  790.         StrCopy(servicedesc, 'creativeserver : CreativeServer')
  791.     CASE 454
  792.         StrCopy(servicedesc, 'contentserver : ContentServer')
  793.     CASE 455
  794.         StrCopy(servicedesc, 'creativepartnr : CreativePartnr')
  795.     CASE 456
  796.         StrCopy(servicedesc, 'macon-tcp : macon-tcp ; \eb[TROJANS=Hackers Paradise]\en')
  797.     CASE 457
  798.         StrCopy(servicedesc, 'scohelp : scohelp')
  799.     CASE 458
  800.         StrCopy(servicedesc, 'appleqtc : apple quick time')
  801.     CASE 459
  802.         StrCopy(servicedesc, 'ampr-rcmd : ampr-rcmd')
  803.     CASE 460
  804.         StrCopy(servicedesc, 'skronk : skronk')
  805.     CASE 461
  806.         StrCopy(servicedesc, 'datasurfsrv : DataRampSrv')
  807.     CASE 462
  808.         StrCopy(servicedesc, 'datasurfsrvsec : DataRampSrvSec')
  809.     CASE 463
  810.         StrCopy(servicedesc, 'alpes : alpes')
  811.     CASE 464
  812.         StrCopy(servicedesc, 'kpasswd kpasswd5 : Passwd using Kerberos ; Passwd using Kerberos V5')
  813.     CASE 465
  814.         StrCopy(servicedesc, 'ssmtp smtps: SMTP using SSL')
  815.     CASE 466
  816.         StrCopy(servicedesc, 'digital-vrc : digital-vrc')
  817.     CASE 467
  818.         StrCopy(servicedesc, 'mylex-mapd : mylex-mapd')
  819.     CASE 468
  820.         StrCopy(servicedesc, 'photuris : Photuris Key Management')
  821.     CASE 469
  822.         StrCopy(servicedesc, 'rcp : Radio Control Protocol')
  823.     CASE 470
  824.         StrCopy(servicedesc, 'scx-proxy : scx-proxy')
  825.     CASE 471
  826.         StrCopy(servicedesc, 'mondex : Mondex')
  827.     CASE 472
  828.         StrCopy(servicedesc, 'ljk-login : ljk-login')
  829.     CASE 473
  830.         StrCopy(servicedesc, 'hybrid-pop : hybrid-pop')
  831.     CASE 474
  832.         StrCopy(servicedesc, 'tn-tl-w1 : tn-tl-w1')
  833.     CASE 475
  834.         StrCopy(servicedesc, 'tcpnethaspsrv : tcpnethaspsrv')
  835.     CASE 476
  836.         StrCopy(servicedesc, 'tn-tl-fd1 : tn-tl-fd1')
  837.     CASE 477
  838.         StrCopy(servicedesc, 'ss7ns : ss7ns')
  839.     CASE 478
  840.         StrCopy(servicedesc, 'spsc : spsc')
  841.     CASE 479
  842.         StrCopy(servicedesc, 'iafserver : iafserver')
  843.     CASE 480
  844.         StrCopy(servicedesc, 'iafdbase loadsrv: iafdbase')
  845.     CASE 481
  846.         StrCopy(servicedesc, 'ph : Ph service')
  847.     CASE 482
  848.         StrCopy(servicedesc, 'bgs-nsi xlof : bgs-nsi')
  849.     CASE 483
  850.         StrCopy(servicedesc, 'ulpnet : ulpnet')
  851.     CASE 484
  852.         StrCopy(servicedesc, 'integra-sme : Integra Software Management Environment')
  853.     CASE 485
  854.         StrCopy(servicedesc, 'powerburst : Air Soft Power Burst')
  855.     CASE 486
  856.         StrCopy(servicedesc, 'avian sstats: avian')
  857.     CASE 487
  858.         StrCopy(servicedesc, 'saft : Simple Asynchronous File Transfer')
  859.     CASE 488
  860.         StrCopy(servicedesc, 'gss-http : gss-http')
  861.     CASE 489
  862.         StrCopy(servicedesc, 'nest-protocol : nest-protocol')
  863.     CASE 490
  864.         StrCopy(servicedesc, 'micom-pfs : micom-pfs')
  865.     CASE 491
  866.         StrCopy(servicedesc, 'go-login : go-login')
  867.     CASE 492
  868.         StrCopy(servicedesc, 'ticf-1 : Transport Independent Convergence for FNA')
  869.     CASE 493
  870.         StrCopy(servicedesc, 'ticf-2 : Transport Independent Convergence for FNA')
  871.     CASE 494
  872.         StrCopy(servicedesc, 'pov-ray : POV-Ray')
  873.     CASE 495
  874.         StrCopy(servicedesc, 'intecourier : intecourier')
  875.     CASE 496
  876.         StrCopy(servicedesc, 'pim-rp-disc : PIM-RP-DISC')
  877.     CASE 497
  878.         StrCopy(servicedesc, 'dantz : dantz')
  879.     CASE 498
  880.         StrCopy(servicedesc, 'siam : siam')
  881.     CASE 499
  882.         StrCopy(servicedesc, 'iso-ill : ISO ILL Protocol')
  883.     CASE 500
  884.         StrCopy(servicedesc, 'isakmp : isakmp')
  885.  
  886.     CASE 501
  887.         StrCopy(servicedesc, 'stmf : STMF')
  888.     CASE 502
  889.         StrCopy(servicedesc, 'asa-appl-proto : asa-appl-proto')
  890.     CASE 503
  891.         StrCopy(servicedesc, 'intrinsa : Intrinsa')
  892.     CASE 504
  893.         StrCopy(servicedesc, 'citadel : citadel')
  894.     CASE 505
  895.         StrCopy(servicedesc, 'mailbox-lm : mailbox-lm')
  896.     CASE 506
  897.         StrCopy(servicedesc, 'ohimsrv : ohimsrv')
  898.     CASE 507
  899.         StrCopy(servicedesc, 'crs : crs')
  900.     CASE 508
  901.         StrCopy(servicedesc, 'xvttp : xvttp')
  902.     CASE 509
  903.         StrCopy(servicedesc, 'snare : snare')
  904.     CASE 510
  905.         StrCopy(servicedesc, 'fcp : FirstClass Protocol')
  906.     CASE 511
  907.         StrCopy(servicedesc, 'passgo : PassGo')
  908.     CASE 512
  909.         StrCopy(servicedesc, 'exec : remote process execution ; biff : Biff Mail Notification')
  910.     CASE 513
  911.         StrCopy(servicedesc, 'login who : Remote Login ; Who')
  912.     CASE 514
  913.         StrCopy(servicedesc, 'shell rsh: cmd (Remote Shell)')
  914.     CASE 515
  915.         StrCopy(servicedesc, 'printer spooler: Print Spooler')
  916.     CASE 516
  917.         StrCopy(servicedesc, 'videotex : videotex')
  918.     CASE 517
  919.         StrCopy(servicedesc, 'talk : like tenex link, but across')
  920.     CASE 518
  921.         StrCopy(servicedesc, 'ntalk : NTalk')
  922.     CASE 519
  923.         StrCopy(servicedesc, 'utime : unixtime')
  924.     CASE 520
  925.         StrCopy(servicedesc, 'efs route: extended file name server ; router routed RIP')
  926.     CASE 521
  927.         StrCopy(servicedesc, 'ripng : ripng')
  928.     CASE 522
  929.         StrCopy(servicedesc, 'ulp : ULP')
  930.     CASE 523
  931.         StrCopy(servicedesc, 'ibm-db2 : IBM-DB2')
  932.     CASE 524
  933.         StrCopy(servicedesc, 'ncp : NCP')
  934.     CASE 525
  935.         StrCopy(servicedesc, 'timed : timeserver')
  936.     CASE 526
  937.         StrCopy(servicedesc, 'tempo newdate: Tempo/Newdate')
  938.     CASE 527
  939.         StrCopy(servicedesc, 'stx : Stock IXChange')
  940.     CASE 528
  941.         StrCopy(servicedesc, 'custix : Customer IXChange')
  942.     CASE 529
  943.         StrCopy(servicedesc, 'irc-serv : IRC-SERV')
  944.     CASE 530
  945.         StrCopy(servicedesc, 'courier rpc : Courier Remote Procedure Call')
  946.     CASE 531
  947.         StrCopy(servicedesc, 'conference chat : Chat ; \eb[TROJANS=Rasmin]\en')
  948.     CASE 532
  949.         StrCopy(servicedesc, 'netnews readnews : Netnews ; readnews')
  950.     CASE 533
  951.         StrCopy(servicedesc, 'netwall : Emergency Message Broadcast')
  952.     CASE 534
  953.         StrCopy(servicedesc, 'mm-admin : MegaMedia Admin')
  954.     CASE 535
  955.         StrCopy(servicedesc, 'iiop : iiop')
  956.     CASE 536
  957.         StrCopy(servicedesc, 'opalis-rdv : opalis-rdv')
  958.     CASE 537
  959.         StrCopy(servicedesc, 'nmsp : Networked Media Streaming Protocol')
  960.     CASE 538
  961.         StrCopy(servicedesc, 'gdomap : GNUstep Distributed Objects')
  962.     CASE 539
  963.         StrCopy(servicedesc, 'apertus-ldp : Apertus Technologies Load Determination')
  964.     CASE 540
  965.         StrCopy(servicedesc, 'uucp uucpd : UNIX to UNIX Copy {Daemon}')
  966.     CASE 541
  967.         StrCopy(servicedesc, 'uucp-rlogin : UNIX to UNIX Copy Remote Login')
  968.     CASE 542
  969.         StrCopy(servicedesc, 'commerce : commerce')
  970.     CASE 543
  971.         StrCopy(servicedesc, 'klogin : Login using Kerberos (V4/5)')
  972.     CASE 544
  973.         StrCopy(servicedesc, 'kshell krcmd : Remote shell using Kerberos (V4/5)')
  974.     CASE 545
  975.         StrCopy(servicedesc, 'appleqtcsrvr ekshell : appleqtcsrvr (QuickTime) ; Kerberos Encrypted Remote Shell')
  976.     CASE 546
  977.         StrCopy(servicedesc, 'dhcpv6-client : DHCPv6 Client')
  978.     CASE 547
  979.         StrCopy(servicedesc, 'dhcpv6-server : DHCPv6 Server')
  980.     CASE 548
  981.         StrCopy(servicedesc, 'afpovertcp : AFP over TCP')
  982.     CASE 549
  983.         StrCopy(servicedesc, 'idfp : IDFP')
  984.     CASE 550
  985.         StrCopy(servicedesc, 'new-rwho new-who : new-who')
  986.     CASE 551
  987.         StrCopy(servicedesc, 'cybercash : cybercash')
  988.     CASE 552
  989.         StrCopy(servicedesc, 'deviceshare : deviceshare')
  990.     CASE 553
  991.         StrCopy(servicedesc, 'pirp : pirp')
  992.     CASE 554
  993.         StrCopy(servicedesc, 'rtsp : Real Time Stream Control Protocol')
  994.     CASE 555
  995.         StrCopy(servicedesc, 'dsf : dsf ; \eb[TROJANS=Stealth Spy, Phaze, Ini Killer, NetAdmin, ]\en')
  996.     CASE 556
  997.         StrCopy(servicedesc, 'remotefs rfs rfs_server : Brunhoff Remote Filesystem')
  998.     CASE 557
  999.         StrCopy(servicedesc, 'openvms-sysipc : openvms-sysipc')
  1000.     CASE 558
  1001.         StrCopy(servicedesc, 'sdnskmp : SDNSKMP')
  1002.     CASE 559
  1003.         StrCopy(servicedesc, 'teedtap : TEEDTAP')
  1004.     CASE 560
  1005.         StrCopy(servicedesc, 'rmonitor rmonitord : rmonitord')
  1006.     CASE 561
  1007.         StrCopy(servicedesc, 'monitor : monitor')
  1008.     CASE 562
  1009.         StrCopy(servicedesc, 'chshell : chcmd')
  1010.     CASE 563
  1011.         StrCopy(servicedesc, 'nntps snews : NNTP protocol over TLS/SSL (was snntp)')
  1012.     CASE 564
  1013.         StrCopy(servicedesc, '9pfs : plan 9 file service')
  1014.     CASE 565
  1015.         StrCopy(servicedesc, 'whoami : whoami')
  1016.     CASE 566
  1017.         StrCopy(servicedesc, 'streettalk : streettalk')
  1018.     CASE 567
  1019.         StrCopy(servicedesc, 'banyan-rpc : banyan-rpc')
  1020.     CASE 568
  1021.         StrCopy(servicedesc, 'ms-shuttle : microsoft shuttle')
  1022.     CASE 569
  1023.         StrCopy(servicedesc, 'ms-rome : microsoft rome')
  1024.     CASE 570
  1025.         StrCopy(servicedesc, 'meter : demon')
  1026.     CASE 571
  1027.         StrCopy(servicedesc, 'meter : udemon')
  1028.     CASE 572
  1029.         StrCopy(servicedesc, 'sonar : sonar')
  1030.     CASE 573
  1031.         StrCopy(servicedesc, 'banyan-vip : banyan-vip')
  1032.     CASE 574
  1033.         StrCopy(servicedesc, 'ftp-agent : FTP Software Agent System')
  1034.     CASE 575
  1035.         StrCopy(servicedesc, 'vemmi : VEMMI')
  1036.     CASE 576
  1037.         StrCopy(servicedesc, 'ipcd : ipcd')
  1038.     CASE 577
  1039.         StrCopy(servicedesc, 'vnas : vnas')
  1040.     CASE 578
  1041.         StrCopy(servicedesc, 'ipdd : ipdd')
  1042.     CASE 579
  1043.         StrCopy(servicedesc, 'decbsrv : decbsrv')
  1044.     CASE 580
  1045.         StrCopy(servicedesc, 'sntp-heartbeat : SNTP HEARTBEAT')
  1046.     CASE 581
  1047.         StrCopy(servicedesc, 'bdp : Bundle Discovery Protocol')
  1048.     CASE 582
  1049.         StrCopy(servicedesc, 'scc-security : SCC Security')
  1050.     CASE 583
  1051.         StrCopy(servicedesc, 'philips-vc : Philips Video-Conferencing')
  1052.     CASE 584
  1053.         StrCopy(servicedesc, 'keyserver : Key Server')
  1054.     CASE 585
  1055.         StrCopy(servicedesc, 'imap4-ssl : IMAP4+SSL (use 993 instead)')
  1056.     CASE 586
  1057.         StrCopy(servicedesc, 'password-chg : Password Change')
  1058.     CASE 587
  1059.         StrCopy(servicedesc, 'submission : Submission')
  1060.     CASE 588
  1061.         StrCopy(servicedesc, 'cal : CAL')
  1062.     CASE 589
  1063.         StrCopy(servicedesc, 'eyelink : EyeLink')
  1064.     CASE 590
  1065.         StrCopy(servicedesc, 'tns-cml : TNS CML')
  1066.     CASE 591
  1067.         StrCopy(servicedesc, 'http-alt : FileMaker, Inc. - HTTP Alternate (see Port 80)')
  1068.     CASE 592
  1069.         StrCopy(servicedesc, 'eudora-set : Eudora Set')
  1070.     CASE 593
  1071.         StrCopy(servicedesc, 'http-rpc-epmap : HTTP RPC Ep Map')
  1072.     CASE 594
  1073.         StrCopy(servicedesc, 'tpip : TPIP')
  1074.     CASE 595
  1075.         StrCopy(servicedesc, 'cab-protocol : CAB Protocol')
  1076.     CASE 596
  1077.         StrCopy(servicedesc, 'smsd : SMSD')
  1078.     CASE 597
  1079.         StrCopy(servicedesc, 'ptcnameservice : PTC Name Service')
  1080.     CASE 598
  1081.         StrCopy(servicedesc, 'sco-websrvrmg3 : SCO Web Server Manager 3')
  1082.     CASE 599
  1083.         StrCopy(servicedesc, 'acp : Aeolon Core Protocol')
  1084.     CASE 600
  1085.         StrCopy(servicedesc, 'pcserver ipcserver : Sun ECD Integrated PC board server')
  1086.     DEFAULT
  1087.         StrCopy(servicedesc, 'UNKNOWN')
  1088.  
  1089. ENDSELECT
  1090. ENDPROC
  1091.  
  1092.  
  1093. EXPORT PROC service4(portserv:LONG)
  1094.  
  1095. SELECT portserv
  1096.     CASE 601
  1097.         StrCopy(servicedesc, 'ta-rauth : Andrews File System Remote Authentication')
  1098.     CASE 606
  1099.         StrCopy(servicedesc, 'urm : Cray Unified Resource Manager')
  1100.     CASE 607
  1101.         StrCopy(servicedesc, 'nqs : nqs')
  1102.     CASE 608
  1103.         StrCopy(servicedesc, 'sift-uft : Sender-Initiated/Unsolicited File Transfer')
  1104.     CASE 609
  1105.         StrCopy(servicedesc, 'npmp-trap : npmp-trap')
  1106.     CASE 610
  1107.         StrCopy(servicedesc, 'npmp-local : npmp-local')
  1108.     CASE 611
  1109.         StrCopy(servicedesc, 'npmp-gui : npmp-gui')
  1110.     CASE 612
  1111.         StrCopy(servicedesc, 'hmmp-ind : HMMP Indication')
  1112.     CASE 613
  1113.         StrCopy(servicedesc, 'hmmp-op : HMMP Operation')
  1114.     CASE 614
  1115.         StrCopy(servicedesc, 'sshell : SSLshell')
  1116.     CASE 615
  1117.         StrCopy(servicedesc, 'sco-inetmgr : Internet Configuration Manager')
  1118.     CASE 616
  1119.         StrCopy(servicedesc, 'sco-sysmgr : SCO System Administration Server')
  1120.     CASE 617
  1121.         StrCopy(servicedesc, 'sco-dtmgr : SCO Desktop Administration Server')
  1122.     CASE 618
  1123.         StrCopy(servicedesc, 'dei-icda : DEI-ICDA')
  1124.     CASE 619
  1125.         StrCopy(servicedesc, 'digital-evm : Digital EVM')
  1126.     CASE 620
  1127.         StrCopy(servicedesc, 'sco-websrvrmgr : SCO WebServer Manager')
  1128.     CASE 621
  1129.         StrCopy(servicedesc, 'escp-ip : ESCP')
  1130.     CASE 622
  1131.         StrCopy(servicedesc, 'collaborator : Collaborator')
  1132.     CASE 623
  1133.         StrCopy(servicedesc, 'aux_bus_shunt : Aux Bus Shunt')
  1134.     CASE 624
  1135.         StrCopy(servicedesc, 'cryptoadmin : Crypto Admin')
  1136.     CASE 625
  1137.         StrCopy(servicedesc, 'dec_dlm : DEC DLM')
  1138.     CASE 626
  1139.         StrCopy(servicedesc, 'asia : ASIA')
  1140.     CASE 627
  1141.         StrCopy(servicedesc, 'passgo-tivoli : PassGo Tivoli')
  1142.     CASE 628
  1143.         StrCopy(servicedesc, 'qmqp : Qmail Quick Mail Queuing')
  1144.     CASE 629
  1145.         StrCopy(servicedesc, '3com-amp3 : 3Com AMP3')
  1146.     CASE 630
  1147.         StrCopy(servicedesc, 'rda : RDA')
  1148.     CASE 631
  1149.         StrCopy(servicedesc, 'ipp cups : IPP (Internet Printing Protocol) ; Common UNIX Printing System')
  1150.     CASE 632
  1151.         StrCopy(servicedesc, 'bmpp : bmpp')
  1152.     CASE 633
  1153.         StrCopy(servicedesc, 'servstat : Service Status update (Sterling Software)')
  1154.     CASE 634
  1155.         StrCopy(servicedesc, 'ginad : ginad')
  1156.     CASE 635
  1157.         StrCopy(servicedesc, 'rlzdbase mount : RLZ DBase ; MFS Mount Service')
  1158.     CASE 636
  1159.         StrCopy(servicedesc, 'ldaps ssl-ldap : LDAP protocol over TLS/SSL (was sldap)')
  1160.     CASE 637
  1161.         StrCopy(servicedesc, 'lanserver : lanserver')
  1162.     CASE 638
  1163.         StrCopy(servicedesc, 'mcns-sec : mcns-sec')
  1164.     CASE 639
  1165.         StrCopy(servicedesc, 'msdp : MSDP')
  1166.     CASE 640
  1167.         StrCopy(servicedesc, 'entrust-sps pcnfs : entrust-sps ; PC-NFS DOS Authentication')
  1168.     CASE 641
  1169.         StrCopy(servicedesc, 'repcmd : repcmd')
  1170.     CASE 642
  1171.         StrCopy(servicedesc, 'esro-emsdp : ESRO-EMSDP V1.3')
  1172.     CASE 643
  1173.         StrCopy(servicedesc, 'sanity : SANity')
  1174.     CASE 644
  1175.         StrCopy(servicedesc, 'dwr : dwr')
  1176.     CASE 645
  1177.         StrCopy(servicedesc, 'pssc : PSSC')
  1178.     CASE 646
  1179.         StrCopy(servicedesc, 'ldp : LDP')
  1180.     CASE 647
  1181.         StrCopy(servicedesc, 'dhcp-failover : DHCP Failover')
  1182.     CASE 648
  1183.         StrCopy(servicedesc, 'rrp : Registry Registrar Protocol (RRP)')
  1184.     CASE 649
  1185.         StrCopy(servicedesc, 'aminet : Aminet')
  1186.     CASE 650
  1187.         StrCopy(servicedesc, 'obex bwnfs : OBEX ; BW-NFS DOS Authentication')
  1188.     CASE 651
  1189.         StrCopy(servicedesc, 'ieee-mms : IEEE MMS')
  1190.     CASE 652
  1191.         StrCopy(servicedesc, 'udlr-dtcp : UDLR_DTCP')
  1192.     CASE 653
  1193.         StrCopy(servicedesc, 'repscmd : RepCmd')
  1194.     CASE 654
  1195.         StrCopy(servicedesc, 'aodv : AODV')
  1196.     CASE 655
  1197.         StrCopy(servicedesc, 'tinc : TINC')
  1198.     CASE 656
  1199.         StrCopy(servicedesc, 'spmp : SPMP')
  1200.     CASE 657
  1201.         StrCopy(servicedesc, 'rmc : RMC')
  1202.     CASE 658
  1203.         StrCopy(servicedesc, 'tenfold : TenFold')
  1204.     CASE 659
  1205.         StrCopy(servicedesc, 'url-rendezvous : URL Rendezvous')
  1206.     CASE 660
  1207.         StrCopy(servicedesc, 'mac-srvr-admin : MacOS Server Admin')
  1208.     CASE 661
  1209.         StrCopy(servicedesc, 'hap : HAP')
  1210.     CASE 662
  1211.         StrCopy(servicedesc, 'pftp : PFTP')
  1212.     CASE 663
  1213.         StrCopy(servicedesc, 'purenoise : PureNoise')
  1214.     CASE 664
  1215.         StrCopy(servicedesc, 'secure-aux-bus : Secure Aux Bus')
  1216.     CASE 665
  1217.         StrCopy(servicedesc, 'sun-dr : Sun DR')
  1218.     CASE 666
  1219.         StrCopy(servicedesc, 'mdqs : Sun DR ; doom : Doom Game Server ; \eb[TROJANS=Attack FTP, Cain & Abel, Back Contruction, Satanz Backdoor, ServeU, Shadow Phyre]\en')
  1220.     CASE 667
  1221.         StrCopy(servicedesc, 'disclose : campaign contribution disclosures - SDR Technologies')
  1222.     CASE 668
  1223.         StrCopy(servicedesc, 'mecomm : MeComm')
  1224.     CASE 669
  1225.         StrCopy(servicedesc, 'meregister : MeRegister')
  1226.     CASE 670
  1227.         StrCopy(servicedesc, 'vacdsm-sws : VACDSM-SWS')
  1228.     CASE 671
  1229.         StrCopy(servicedesc, 'vacdsm-app : VACDSM-APP')
  1230.     CASE 672
  1231.         StrCopy(servicedesc, 'vpps-qua : VPPS-QUA')
  1232.     CASE 673
  1233.         StrCopy(servicedesc, 'cimplex : CIMPLEX')
  1234.     CASE 674
  1235.         StrCopy(servicedesc, 'acap : ACAP')
  1236.     CASE 675
  1237.         StrCopy(servicedesc, 'dctp : DCTP')
  1238.     CASE 676
  1239.         StrCopy(servicedesc, 'vpps-via : VPPS Via')
  1240.     CASE 677
  1241.         StrCopy(servicedesc, 'vpp : Virtual Presence Protocol')
  1242.     CASE 678
  1243.         StrCopy(servicedesc, 'ggf-ncp : GNU Gereration Foundation NCP')
  1244.     CASE 679
  1245.         StrCopy(servicedesc, 'mrm : MRM')
  1246.     CASE 680
  1247.         StrCopy(servicedesc, 'entrust-aaas : entrust-aaas')
  1248.     CASE 681
  1249.         StrCopy(servicedesc, 'entrust-aams : entrust-aams')
  1250.     CASE 682
  1251.         StrCopy(servicedesc, 'xfr : XFR')
  1252.     CASE 683
  1253.         StrCopy(servicedesc, 'corba-iiop : CORBA IIOP')
  1254.     CASE 684
  1255.         StrCopy(servicedesc, 'corba-iiop-ssl : CORBA IIOP SSL')
  1256.     CASE 685
  1257.         StrCopy(servicedesc, 'mdc-portmapper : MDC Port Mapper')
  1258.     CASE 686
  1259.         StrCopy(servicedesc, 'hcp-wismar : Hardware Control Protocol Wismar')
  1260.     CASE 687
  1261.         StrCopy(servicedesc, 'asipregistry : asipregistry')
  1262.     CASE 688
  1263.         StrCopy(servicedesc, 'realm-rusd : REALM-RUSD')
  1264.     CASE 689
  1265.         StrCopy(servicedesc, 'nmap : NMAP')
  1266.     CASE 690
  1267.         StrCopy(servicedesc, 'vatp : VATP')
  1268.     CASE 691
  1269.         StrCopy(servicedesc, 'msexch-routing : MicroSoft Exchange Routing (mail)')
  1270.     CASE 692
  1271.         StrCopy(servicedesc, 'hyperwave-isp : Hyperwave-ISP')
  1272.     CASE 693
  1273.         StrCopy(servicedesc, 'connendp : connendp')
  1274.     CASE 694
  1275.         StrCopy(servicedesc, 'ha-cluster : ha-cluster')
  1276.     CASE 695
  1277.         StrCopy(servicedesc, 'ieee-mms-ssl : IEEE-MMS-SSL')
  1278.     CASE 696
  1279.         StrCopy(servicedesc, 'rushd : RUSHD')
  1280.     CASE 697
  1281.         StrCopy(servicedesc, 'uuidgen : UUIDGEN')
  1282.     CASE 698
  1283.         StrCopy(servicedesc, 'olsr : OLSR')
  1284.     CASE 699
  1285.         StrCopy(servicedesc, 'accessnetwork : Access Network')
  1286.     CASE 704
  1287.         StrCopy(servicedesc, 'elcsd : errlog copy/server daemon')
  1288.     CASE 705
  1289.         StrCopy(servicedesc, 'agentx : AgentX')
  1290.     CASE 706
  1291.         StrCopy(servicedesc, 'silc : SILC')
  1292.     CASE 707
  1293.         StrCopy(servicedesc, 'borland-dsj : Borland DSJ')
  1294.     CASE 709
  1295.         StrCopy(servicedesc, 'entrust-kmsh : Entrust Key Management Service Handler (Nortel DES)')
  1296.     CASE 710
  1297.         StrCopy(servicedesc, 'entrust-ash : Entrust Administration Service Handler')
  1298.     CASE 711
  1299.         StrCopy(servicedesc, 'cisco-tdp : Cisco TDP')
  1300.     CASE 729
  1301.         StrCopy(servicedesc, 'netviewdm1 : IBM NetView DM/6000 Server/Client')
  1302.     CASE 730
  1303.         StrCopy(servicedesc, 'netviewdm2 : IBM NetView DM/6000 send/tcp')
  1304.     CASE 731
  1305.         StrCopy(servicedesc, 'netviewdm3 : IBM NetView DM/6000 receive/tcp')
  1306.     CASE 741
  1307.         StrCopy(servicedesc, 'netgw : netGW')
  1308.     CASE 742
  1309.         StrCopy(servicedesc, 'netrcs : Network based Rev. Cont. Sys.')
  1310.     CASE 744
  1311.         StrCopy(servicedesc, 'flexlm : Flexible License Manager')
  1312.     CASE 747
  1313.         StrCopy(servicedesc, 'fujitsu-dev : Fujitsu Device Control')
  1314.     CASE 748
  1315.         StrCopy(servicedesc, 'ris-cm : Russell Info Sci Calendar Manager')
  1316.     CASE 749
  1317.         StrCopy(servicedesc, 'kerberos-adm :Kerberos Administration Tool (kadmin)')
  1318.     CASE 750
  1319.         StrCopy(servicedesc, 'rfile : rfile ; kerberos4 kerberos-iv kdc kerberos : Kerberos Server')
  1320.     CASE 751
  1321.         StrCopy(servicedesc, 'pump : pump ; kerberos_master : Kerberos Authentication')
  1322.     CASE 752
  1323.         StrCopy(servicedesc, 'qrh : qrh')
  1324.     CASE 753
  1325.         StrCopy(servicedesc, 'rrh : rrh')
  1326.     CASE 754
  1327.         StrCopy(servicedesc, 'tell : send ; krb_prop : Kerberos Slave Propagation')
  1328.     CASE 758
  1329.         StrCopy(servicedesc, 'nlogin : nlogin')
  1330.     CASE 759
  1331.         StrCopy(servicedesc, 'con : con')
  1332.     CASE 760
  1333.         StrCopy(servicedesc, 'ns : ns ; krbupdate kreg : Kerberos (v4) Registration')
  1334.     CASE 761
  1335.         StrCopy(servicedesc, 'rxe : rxe ; kpasswd : Kerberos (v4) Passwd')
  1336.     CASE 762
  1337.         StrCopy(servicedesc, 'quotad : quotad')
  1338.     CASE 763
  1339.         StrCopy(servicedesc, 'cycleserv : cycleserv')
  1340.     CASE 764
  1341.         StrCopy(servicedesc, 'omserv : omserv')
  1342.     CASE 765
  1343.         StrCopy(servicedesc, 'webster : Webster Network Dictionary')
  1344.     CASE 767
  1345.         StrCopy(servicedesc, 'phonebook : phone')
  1346.     CASE 769
  1347.         StrCopy(servicedesc, 'vid : vid')
  1348.     CASE 770
  1349.         StrCopy(servicedesc, 'cadlock : cadlock')
  1350.     CASE 771
  1351.         StrCopy(servicedesc, 'rtip : rtip')
  1352.     CASE 772
  1353.         StrCopy(servicedesc, 'cycleserv2 : cycleserv2')
  1354.     CASE 773
  1355.         StrCopy(servicedesc, 'submit notify : submit notify')
  1356.     CASE 774
  1357.         StrCopy(servicedesc, 'rpasswd acmaint_dbd : rpasswd ; acmaint_dbd')
  1358.     CASE 775
  1359.         StrCopy(servicedesc, 'entomb acmaint_transd : entomb ; acmain_transd')
  1360.     CASE 776
  1361.         StrCopy(servicedesc, 'wpages : wpages')
  1362.     CASE 777
  1363.         StrCopy(servicedesc, 'multiling-http : Multiling HTTP ; \eb[TROJANS=AIM Spy App]\en')
  1364.     CASE 780
  1365.         StrCopy(servicedesc, 'wpgs : wpgs')
  1366.     CASE 781
  1367.         StrCopy(servicedesc, 'hp-collector : hp performance data collector')
  1368.     CASE 782
  1369.         StrCopy(servicedesc, 'hp-managed-node : hp performance data managed node')
  1370.     CASE 783
  1371.         StrCopy(servicedesc, 'hp-alarm-mgr : hp performance data alarm manager')
  1372.     CASE 786
  1373.         StrCopy(servicedesc, 'concert : Concert')
  1374.     CASE 787
  1375.         StrCopy(servicedesc, 'qsc : QSC')
  1376.     CASE 799
  1377.         StrCopy(servicedesc, 'controlit : controlit')
  1378.     CASE 800
  1379.         StrCopy(servicedesc, 'mdbs_daemon amiganetfs : QSC')
  1380.  
  1381.  
  1382.     DEFAULT
  1383.         StrCopy(servicedesc, 'UNKNOWN')
  1384. ENDSELECT
  1385. ENDPROC
  1386.  
  1387. EXPORT PROC service5(portserv:LONG)
  1388.  
  1389. SELECT portserv
  1390.     CASE 801
  1391.         StrCopy(servicedesc, 'device : device')
  1392.     CASE 808
  1393.         StrCopy(servicedesc, 'omirr omirrd : Online Mirror')
  1394.     CASE 810
  1395.         StrCopy(servicedesc, 'fcp-udp : FCP')
  1396.     CASE 828
  1397.         StrCopy(servicedesc, 'itm-mcell-s : itm-mcell-s')
  1398.     CASE 829
  1399.         StrCopy(servicedesc, 'pkix-3-ca-ra : PKIX-3 CA/RA')
  1400.     CASE 847
  1401.         StrCopy(servicedesc, 'dhcp-failover2 : dhcp-failover 2')
  1402.     CASE 871
  1403.         StrCopy(servicedesc, 'supfilesrv : SUP Filer Server')
  1404.     CASE 873
  1405.         StrCopy(servicedesc, 'rsync : rsync')
  1406.     CASE 886
  1407.         StrCopy(servicedesc, 'iclcnet-locate : ICL coNETion locate server')
  1408.     CASE 887
  1409.         StrCopy(servicedesc, 'iclcnet_svinfo : ICL coNETion server info')
  1410.     CASE 888
  1411.         StrCopy(servicedesc, 'accessbuilder : AccessBuilder or Audio CD Database')
  1412.     CASE 888
  1413.         StrCopy(servicedesc, 'cddbp : CD Database Protocol')
  1414.     CASE 900
  1415.         StrCopy(servicedesc, 'omginitialrefs : OMG Initial Refs')
  1416.     CASE 901
  1417.         StrCopy(servicedesc, 'smpnameres samba-swat : SMPNAMERES ; WWW Swat Samba Configuration ; ISS RealSecure')
  1418.     CASE 902
  1419.         StrCopy(servicedesc, 'ideafarm-chat : IDEAFARM-CHAT')
  1420.     CASE 903
  1421.         StrCopy(servicedesc, 'ideafarm-catch : IDEAFARM-CATCH')
  1422.     CASE 911
  1423.         StrCopy(servicedesc, 'xact-backup : xact-backup ; \eb[TROJANS=Dark Shadow]\en')
  1424.     CASE 950
  1425.         StrCopy(servicedesc, 'oftep-rpc : RPC.statd on RedHat Linux')
  1426.     CASE 953
  1427.         StrCopy(servicedesc, 'rndc : RNDC is used by Bind 9')
  1428.     CASE 975
  1429.         StrCopy(servicedesc, 'securenetpro-sensor : securenetpro-sensor')
  1430.     CASE 989
  1431.         StrCopy(servicedesc, 'ftps-data : ftp protocol, data, over TLS/SSL')
  1432.     CASE 990
  1433.         StrCopy(servicedesc, 'ftps : ftp protocol, control, over TLS/SSL')
  1434.     CASE 991
  1435.         StrCopy(servicedesc, 'nas : Netnews Administration System')
  1436.     CASE 992
  1437.         StrCopy(servicedesc, 'telnets : telnet protocol over TLS/SSL')
  1438.     CASE 993
  1439.         StrCopy(servicedesc, 'imaps simap : imap4 protocol over TLS/SSL')
  1440.     CASE 994
  1441.         StrCopy(servicedesc, 'ircs : irc protocol over TLS/SSL')
  1442.     CASE 995
  1443.         StrCopy(servicedesc, 'pop3s spop3 : pop3 protocol over TLS/SSL')
  1444.     CASE 996
  1445.         StrCopy(servicedesc, 'vsinet : vsinet')
  1446.     CASE 997
  1447.         StrCopy(servicedesc, 'maitrd : maitrd')
  1448.     CASE 998
  1449.         StrCopy(servicedesc, 'busboy : busboy')
  1450.     CASE 999
  1451.         StrCopy(servicedesc, 'garcon applix puprouter: garcon ; applix-ac ; puprouter ; \eb[TROJANS=Deep Throat, WinSatan]\en')
  1452.     CASE 1000
  1453.         StrCopy(servicedesc, 'cadlock2 cadlock : cadlock V2 ; cadlock ; \eb[TROJANS=Der Spaecher]\en')
  1454.     CASE 1001
  1455.         StrCopy(servicedesc, '\eb[TROJANS=Silencer, WebEx]\en')
  1456.     CASE 1008
  1457.         StrCopy(servicedesc, 'ufsd : UFS Aware Server')
  1458.     CASE 1010
  1459.         StrCopy(servicedesc, 'surf : surf ; \eb[TROJANS=Dolly]\en')
  1460.     CASE 1011
  1461.         StrCopy(servicedesc, '\eb[TROJANS=Dolly]\en')
  1462.     CASE 1012
  1463.         StrCopy(servicedesc, 'sometimes-rpc1 : Rstatd (on OpenBSD) ; \eb[TROJANS=Dolly]\en')
  1464.     CASE 1015
  1465.         StrCopy(servicedesc, '\eb[TROJANS=Dolly]\en')
  1466.     CASE 1024
  1467.         StrCopy(servicedesc, 'kdm : K Display Manager (K version of XDM) ; \eb[TROJANS=NetSpy]\en')
  1468.     CASE 1025
  1469.         StrCopy(servicedesc, 'blackjack listen : network blackjack ; Listen Remote File Sharing ; \eb[TROJANS=Mavericks Matrix]\en')
  1470.     CASE 1026
  1471.         StrCopy(servicedesc, 'nterm : Remote Login Network Terminal')
  1472.     CASE 1027
  1473.         StrCopy(servicedesc, 'icq : ICQ')
  1474.     CASE 1028
  1475.         StrCopy(servicedesc, 'icq : ICQ')
  1476.     CASE 1029
  1477.         StrCopy(servicedesc, 'icq : ICQ')
  1478.     CASE 1030
  1479.         StrCopy(servicedesc, 'iad1 : BBN IAD')
  1480.     CASE 1031
  1481.         StrCopy(servicedesc, 'iad2 : BBN IAD')
  1482.     CASE 1032
  1483.         StrCopy(servicedesc, 'iad3 : BBN IAD')
  1484.     CASE 1033
  1485.         StrCopy(servicedesc, '\eb[TROJANS=NetSpy]\en')
  1486.     CASE 1042
  1487.         StrCopy(servicedesc, '\eb[TROJANS=Bla]\en')
  1488.     CASE 1045
  1489.         StrCopy(servicedesc, '\eb[TROJANS=Rasmin]\en')
  1490.     CASE 1047
  1491.         StrCopy(servicedesc, 'neod1 : Suns NEO Object Request Broker')
  1492.     CASE 1048
  1493.         StrCopy(servicedesc, 'neod2 : Suns NEO Object Request Broker')
  1494.     CASE 1049
  1495.         StrCopy(servicedesc, 'td-postman : Tobit David Postman VPMN')
  1496.     CASE 1050
  1497.         StrCopy(servicedesc, 'cma : CORBA Management Agent')
  1498.     CASE 1051
  1499.         StrCopy(servicedesc, 'optima-vnet : Optima VNET')
  1500.     CASE 1052
  1501.         StrCopy(servicedesc, 'ddt : Dynamic DNS Tools')
  1502.     CASE 1053
  1503.         StrCopy(servicedesc, 'remote-as : Remote Assistant (RA)')
  1504.     CASE 1054
  1505.         StrCopy(servicedesc, 'brvread : BRVREAD')
  1506.     CASE 1055
  1507.         StrCopy(servicedesc, 'ansyslmd : ANSYS - License Manager ')
  1508.     CASE 1056
  1509.         StrCopy(servicedesc, 'vfo : VFO')
  1510.     CASE 1057
  1511.         StrCopy(servicedesc, 'startron : STARTRON')
  1512.     CASE 1058
  1513.         StrCopy(servicedesc, 'nim : nim')
  1514.     CASE 1059
  1515.         StrCopy(servicedesc, 'nimreg : nimreg')
  1516.     CASE 1060
  1517.         StrCopy(servicedesc, 'polestar : POLESTAR')
  1518.     CASE 1061
  1519.         StrCopy(servicedesc, 'kiosk : KIOSK')
  1520.     CASE 1062
  1521.         StrCopy(servicedesc, 'veracity : Veracity')
  1522.     CASE 1063
  1523.         StrCopy(servicedesc, 'kyoceranetdev : KyoceraNetDev')
  1524.     CASE 1064
  1525.         StrCopy(servicedesc, 'jstel : JSTEL')
  1526.     CASE 1065
  1527.         StrCopy(servicedesc, 'syscomlan : SYSCOMLAN')
  1528.     CASE 1066
  1529.         StrCopy(servicedesc, 'fpo-fns : FPO-FNS')
  1530.     CASE 1067
  1531.         StrCopy(servicedesc, 'instl_boots : Installation Bootstrap Proto. Serv.')
  1532.     CASE 1068
  1533.         StrCopy(servicedesc, 'instl_bootc : Installation Bootstrap Proto. Cli.')
  1534.     CASE 1069
  1535.         StrCopy(servicedesc, 'cognex-insight : COGNEX-INSIGHT')
  1536.     CASE 1070
  1537.         StrCopy(servicedesc, 'gmrupdateserv : GMRUpdateSERV')
  1538.     CASE 1071
  1539.         StrCopy(servicedesc, 'bsquare-voip : BSQUARE-VOIP')
  1540.     CASE 1072
  1541.         StrCopy(servicedesc, 'cardax : CARDAX')
  1542.     CASE 1073
  1543.         StrCopy(servicedesc, 'bridgecontrol : BridgeControl')
  1544.     CASE 1074
  1545.         StrCopy(servicedesc, 'fastechnologlm : FASTechnologies License Manager')
  1546.     CASE 1075
  1547.         StrCopy(servicedesc, 'rdrmshc : RDRMSHC')
  1548.     CASE 1076
  1549.         StrCopy(servicedesc, 'dab-sti-c : DAB STI-C')
  1550.     CASE 1077
  1551.         StrCopy(servicedesc, 'imgames : IMGames')
  1552.     CASE 1078
  1553.         StrCopy(servicedesc, 'emanagecstp : eManageCstp')
  1554.     CASE 1079
  1555.         StrCopy(servicedesc, 'asprovatalk : ASPROVATalk')
  1556.     CASE 1080
  1557.         StrCopy(servicedesc, 'socks : Socks Proxy Server')
  1558.     CASE 1081
  1559.         StrCopy(servicedesc, 'pvuniwien : PVUNIWIEN')
  1560.     CASE 1082
  1561.         StrCopy(servicedesc, 'amt-esd-prot : AMT-ESD-PROT')
  1562.     CASE 1083
  1563.         StrCopy(servicedesc, 'ansoft-lm-1 : Anasoft License Manager')
  1564.     CASE 1084
  1565.         StrCopy(servicedesc, 'ansoft-lm-2 : Anasoft License Manager')
  1566.     CASE 1085
  1567.         StrCopy(servicedesc, 'webobjects : Web Objects')
  1568.     CASE 1086
  1569.         StrCopy(servicedesc, 'cplscrambler-lg : CPL Scrambler Logging')
  1570.     CASE 1087
  1571.         StrCopy(servicedesc, 'cplscrambler-in : CPL Scrambler Internal')
  1572.     CASE 1088
  1573.         StrCopy(servicedesc, 'cplscrambler-al : CPL Scrambler Alarm Log')
  1574.     CASE 1089
  1575.         StrCopy(servicedesc, 'ff-annunc : FF Annunciation')
  1576.     CASE 1090
  1577.         StrCopy(servicedesc, 'ff-fms : FF Fieldbus Message Specification ; \eb[TROJANS=XTreme]\en')
  1578.     CASE 1091
  1579.         StrCopy(servicedesc, 'ff-sm : FF System Management')
  1580.     CASE 1092
  1581.         StrCopy(servicedesc, 'obrpd : OBRPD')
  1582.     CASE 1093
  1583.         StrCopy(servicedesc, 'proofd : PROOFD')
  1584.     CASE 1094
  1585.         StrCopy(servicedesc, 'rootd : ROOTD')
  1586.     CASE 1095
  1587.         StrCopy(servicedesc, 'nicelink : NICELink ; \eb[TROJANS=Rat]\en')
  1588.     CASE 1096
  1589.         StrCopy(servicedesc, 'cnrprotocol : Common Name Resolution Protocol')
  1590.     CASE 1097
  1591.         StrCopy(servicedesc, 'sunclustermgr : Sun Cluster Manager ; \eb[TROJANS=Rat]\en')
  1592.     CASE 1098
  1593.         StrCopy(servicedesc, 'rmiactivation : RMI Activation ; \eb[TROJANS=Rat]\en')
  1594.     CASE 1099
  1595.         StrCopy(servicedesc, 'rmiregistry : RMI Registry ; \eb[TROJANS=Rat]\en')
  1596.     CASE 1100
  1597.         StrCopy(servicedesc, 'mctp : MCTP')
  1598.     CASE 1101
  1599.         StrCopy(servicedesc, 'pt2-discover : PT2-DISCOVER')
  1600.     CASE 1102
  1601.         StrCopy(servicedesc, 'adobeserver-1 : ADOBE SERVER 1')
  1602.     CASE 1103
  1603.         StrCopy(servicedesc, 'adobeserver-2 xaudio : ADOBE SERVER 2 ; X Audio Server')
  1604.     CASE 1104
  1605.         StrCopy(servicedesc, 'xrl : XRL')
  1606.     CASE 1105
  1607.         StrCopy(servicedesc, 'ftranhc : FTRANHC')
  1608.     CASE 1106
  1609.         StrCopy(servicedesc, 'isoipsigport-1 : ISOIPSIGPORT-1')
  1610.     CASE 1107
  1611.         StrCopy(servicedesc, 'isoipsigport-2 : ISOIPSIGPORT-2')
  1612.     CASE 1108
  1613.         StrCopy(servicedesc, 'ratio-adp : ratio-adp')
  1614.     CASE 1109
  1615.         StrCopy(servicedesc, 'kpop : Post Office Protocol using Kerberos')
  1616.     CASE 1110
  1617.         StrCopy(servicedesc, 'nfsd-status : Cluster status info')
  1618.     CASE 1111
  1619.         StrCopy(servicedesc, 'lmsocialserver : LM Social Server')
  1620.     CASE 1112
  1621.         StrCopy(servicedesc, 'icp msql : Intelligent Communication Protocol ; Mini SQL Server')
  1622.     CASE 1114
  1623.         StrCopy(servicedesc, 'mini-sql : Mini SQL')
  1624.     CASE 1115
  1625.         StrCopy(servicedesc, 'ardus-trns : ARDUS Transfer')
  1626.     CASE 1116
  1627.         StrCopy(servicedesc, 'ardus-cntl : ARDUS Control')
  1628.     CASE 1117
  1629.         StrCopy(servicedesc, 'ardus-mtrns : ARDUS Multicast Transfer')
  1630.     CASE 1122
  1631.         StrCopy(servicedesc, 'availant-mgr : availant-mgr')
  1632.     CASE 1123
  1633.         StrCopy(servicedesc, 'murray : Murray')
  1634.  
  1635.  
  1636.     DEFAULT
  1637.         StrCopy(servicedesc, 'UNKNOWN')
  1638. ENDSELECT
  1639. ENDPROC
  1640.  
  1641. EXPORT PROC service6(portserv:LONG)
  1642.  
  1643. SELECT portserv
  1644.     CASE 1127
  1645.         StrCopy(servicedesc, 'supfiledvg : SUP Debugging')
  1646.     CASE 1139
  1647.         StrCopy(servicedesc, 'cc3ex : ClearCommerce Engine 3.x')
  1648.     CASE 1155
  1649.         StrCopy(servicedesc, 'nfa : Network File Access')
  1650.     CASE 1161
  1651.         StrCopy(servicedesc, 'health-polling : Health Polling')
  1652.     CASE 1162
  1653.         StrCopy(servicedesc, 'health-trap : Health Trap')
  1654.     CASE 1167
  1655.         StrCopy(servicedesc, 'phone : Conference Calling')
  1656.     CASE 1169
  1657.         StrCopy(servicedesc, 'tripwire : TRIPWIRE')
  1658.     CASE 1170
  1659.         StrCopy(servicedesc, 'xxx : Voice Streaming Audio ; \eb[TROJANS=Psyber Streaming, Voice Trojan]\en')
  1660.     CASE 1178
  1661.         StrCopy(servicedesc, 'skkserv : SKK - Kanji (japanese) input')
  1662.     CASE 1180
  1663.         StrCopy(servicedesc, 'mc-client : Millicent Client Proxy')
  1664.     CASE 1188
  1665.         StrCopy(servicedesc, 'hp-webadmin : HP Web Admin')
  1666.     CASE 1200
  1667.         StrCopy(servicedesc, 'scol : SCOL')
  1668.     CASE 1201
  1669.         StrCopy(servicedesc, 'nucleus-sand : Nucleus Sand')
  1670.     CASE 1202
  1671.         StrCopy(servicedesc, 'caiccipc : caiccipc')
  1672.     CASE 1203
  1673.         StrCopy(servicedesc, 'ssslic-mgr : License Validation')
  1674.     CASE 1204
  1675.         StrCopy(servicedesc, 'ssslog-mgr : Log Request Listener')
  1676.     CASE 1205
  1677.         StrCopy(servicedesc, 'accord-mgc : Accord-MGC')
  1678.     CASE 1206
  1679.         StrCopy(servicedesc, 'anthony-data : Anthony Data')
  1680.     CASE 1207
  1681.         StrCopy(servicedesc, 'metasage : MetaSage ; \eb[TROJANS=Soft War]\en')
  1682.     CASE 1208
  1683.         StrCopy(servicedesc, 'seagull-ais : SEAGULL AIS')
  1684.     CASE 1209
  1685.         StrCopy(servicedesc, 'ipcd3 : IPCD3')
  1686.     CASE 1210
  1687.         StrCopy(servicedesc, 'eoss : EOSS')
  1688.     CASE 1211
  1689.         StrCopy(servicedesc, 'groove-dpp : Groove DPP')
  1690.     CASE 1212
  1691.         StrCopy(servicedesc, 'lupa : lupa')
  1692.     CASE 1213
  1693.         StrCopy(servicedesc, 'mpc-lifenet : MPC LIFENET')
  1694.     CASE 1214
  1695.         StrCopy(servicedesc, 'kazaa : KAZAA and Morpheus File Sharing')
  1696.     CASE 1215
  1697.         StrCopy(servicedesc, 'scanstat-1 : scanSTAT 1.0')
  1698.     CASE 1216
  1699.         StrCopy(servicedesc, 'etebac5 : ETEBAC 5')
  1700.     CASE 1217
  1701.         StrCopy(servicedesc, 'hpss-ndapi : HPSS-NDAPI')
  1702.     CASE 1218
  1703.         StrCopy(servicedesc, 'aeroflight-ads : AeroFlight-ADs')
  1704.     CASE 1219
  1705.         StrCopy(servicedesc, 'aeroflight-ret : AeroFlight-Ret')
  1706.     CASE 1220
  1707.         StrCopy(servicedesc, 'qt-serveradmin : QT SERVER ADMIN')
  1708.     CASE 1221
  1709.         StrCopy(servicedesc, 'sweetware-apps : SweetWARE Apps')
  1710.     CASE 1222
  1711.         StrCopy(servicedesc, 'nerv : SNI R&D network')
  1712.     CASE 1223
  1713.         StrCopy(servicedesc, 'tgp : TGP')
  1714.     CASE 1224
  1715.         StrCopy(servicedesc, 'vpnz : VPNz')
  1716.     CASE 1225
  1717.         StrCopy(servicedesc, 'slinkysearch : SLINKYSEARCH')
  1718.     CASE 1226
  1719.         StrCopy(servicedesc, 'stgxfws : STGXFWS')
  1720.     CASE 1227
  1721.         StrCopy(servicedesc, 'dns2go : DNS2Go')
  1722.     CASE 1228
  1723.         StrCopy(servicedesc, 'florence : FLORENCE')
  1724.     CASE 1229
  1725.         StrCopy(servicedesc, 'novell-zfs : Novell ZFS')
  1726.     CASE 1230
  1727.         StrCopy(servicedesc, 'periscope : Periscope')
  1728.     CASE 1231
  1729.         StrCopy(servicedesc, 'menandmice-lpm : menandmice-lpm')
  1730.     CASE 1232
  1731.         StrCopy(servicedesc, 'mtrgtrans : mtrgtrans')
  1732.     CASE 1233
  1733.         StrCopy(servicedesc, 'univ-appserver : Universal App Server')
  1734.     CASE 1234
  1735.         StrCopy(servicedesc, 'search-agent hotline: Infoseek Search Agent ; \eb[TROJANS=Ultors]\en')
  1736.     CASE 1235
  1737.         StrCopy(servicedesc, 'mosaicsyssvc1 : mosaicsyssvc1')
  1738.     CASE 1236
  1739.         StrCopy(servicedesc, 'bvcontrol : bvcontrol ; rmtcfg : Gracilis Packeten Remote Configuration')
  1740.     CASE 1237
  1741.         StrCopy(servicedesc, 'tsdos390 : tsdos390')
  1742.     CASE 1238
  1743.         StrCopy(servicedesc, 'hacl-qs : hacl-qs')
  1744.     CASE 1239
  1745.         StrCopy(servicedesc, 'nmsd : NMSD')
  1746.     CASE 1240
  1747.         StrCopy(servicedesc, 'instantia : Instantia')
  1748.     CASE 1241
  1749.         StrCopy(servicedesc, 'nessus msg : nessus ; remote message server')
  1750.     CASE 1242
  1751.         StrCopy(servicedesc, 'nmasoverip : NMAS over IP')
  1752.     CASE 1243
  1753.         StrCopy(servicedesc, 'serialgateway : SerialGateway ; \eb[TROJANS=SubSeven]\en')
  1754.     CASE 1244
  1755.         StrCopy(servicedesc, 'isbconference1 : isbconference1')
  1756.     CASE 1245
  1757.         StrCopy(servicedesc, 'isbconference2 : isbconference2 ; \eb[TROJANS=VooDoo Doll]\en')
  1758.     CASE 1246
  1759.         StrCopy(servicedesc, 'payrouter : payrouter')
  1760.     CASE 1247
  1761.         StrCopy(servicedesc, 'visionpyramid : VisionPyramid')
  1762.     CASE 1248
  1763.         StrCopy(servicedesc, 'hermes : hermes')
  1764.     CASE 1249
  1765.         StrCopy(servicedesc, 'mesavistaco : Mesa Vista Co')
  1766.     CASE 1250
  1767.         StrCopy(servicedesc, 'swldy-sias : swldy-sias')
  1768.     CASE 1251
  1769.         StrCopy(servicedesc, 'servergraph : servergraph')
  1770.     CASE 1252
  1771.         StrCopy(servicedesc, 'bspne-pcc : bspne-pcc')
  1772.     CASE 1253
  1773.         StrCopy(servicedesc, 'q55-pcc : q55-pcc')
  1774.     CASE 1254
  1775.         StrCopy(servicedesc, 'de-noc : de-noc')
  1776.     CASE 1255
  1777.         StrCopy(servicedesc, 'de-cache-query : de-cache-query')
  1778.     CASE 1256
  1779.         StrCopy(servicedesc, 'de-server : de-server')
  1780.     CASE 1257
  1781.         StrCopy(servicedesc, 'shockwave2 : Shockwave 2')
  1782.     CASE 1258
  1783.         StrCopy(servicedesc, 'opennl : Open Network Library')
  1784.     CASE 1259
  1785.         StrCopy(servicedesc, 'opennl-voice : Open Network Library Voice')
  1786.     CASE 1260
  1787.         StrCopy(servicedesc, 'ibm-ssd : ibm-ssd')
  1788.     CASE 1261
  1789.         StrCopy(servicedesc, 'mpshrsv : mpshrsv')
  1790.     CASE 1262
  1791.         StrCopy(servicedesc, 'qnts-orb : QNTS-ORB')
  1792.     CASE 1263
  1793.         StrCopy(servicedesc, 'dka : dka')
  1794.     CASE 1264
  1795.         StrCopy(servicedesc, 'prat : PRAT')
  1796.     CASE 1265
  1797.         StrCopy(servicedesc, 'dssiapi : DSSIAPI')
  1798.     CASE 1266
  1799.         StrCopy(servicedesc, 'dellpwrappks : DELLPWRAPPKS')
  1800.     CASE 1267
  1801.         StrCopy(servicedesc, 'pcmlinux : pcmlinux')
  1802.     CASE 1268
  1803.         StrCopy(servicedesc, 'propel-msgsys : PROPEL-MSGSYS')
  1804.     CASE 1269
  1805.         StrCopy(servicedesc, 'watilapp : WATiLaPP ; \eb[TROJANS=Mavericks Matrix]\en')
  1806.     CASE 1270
  1807.         StrCopy(servicedesc, 'opsman : opsman')
  1808.     CASE 1271
  1809.         StrCopy(servicedesc, 'dabew : Dabew')
  1810.     CASE 1272
  1811.         StrCopy(servicedesc, 'cspmlockmgr : CSPMLockMgr')
  1812.     CASE 1273
  1813.         StrCopy(servicedesc, 'emc-gateway : EMC-Gateway')
  1814.     CASE 1274
  1815.         StrCopy(servicedesc, 't1distproc : t1distproc')
  1816.     CASE 1275
  1817.         StrCopy(servicedesc, 'ivcollector : ivcollector')
  1818.     CASE 1276
  1819.         StrCopy(servicedesc, 'ivmanager : ivmanager')
  1820.     CASE 1277
  1821.         StrCopy(servicedesc, 'miva-mqs : mqs')
  1822.     CASE 1278
  1823.         StrCopy(servicedesc, 'dellwebadmin-1 : Dell Web Admin 1')
  1824.     CASE 1279
  1825.         StrCopy(servicedesc, 'dellwebadmin-2 : Dell Web Admin 2')
  1826.     CASE 1280
  1827.         StrCopy(servicedesc, 'pictrography : Pictrography')
  1828.     CASE 1281
  1829.         StrCopy(servicedesc, 'healthd : healthd')
  1830.     CASE 1282
  1831.         StrCopy(servicedesc, 'emperion : Emperion')
  1832.     CASE 1283
  1833.         StrCopy(servicedesc, 'productinfo : ProductInfo')
  1834.     CASE 1284
  1835.         StrCopy(servicedesc, 'iee-qfx : IEE-QFX')
  1836.     CASE 1285
  1837.         StrCopy(servicedesc, 'neoiface : neoiface')
  1838.     CASE 1286
  1839.         StrCopy(servicedesc, 'netuitive : netuitive')
  1840.     CASE 1288
  1841.         StrCopy(servicedesc, 'navbuddy : NavBuddy')
  1842.     CASE 1289
  1843.         StrCopy(servicedesc, 'jwalkserver : JWalkServer')
  1844.     CASE 1290
  1845.         StrCopy(servicedesc, 'winjaserver : WinJaServer')
  1846.     CASE 1291
  1847.         StrCopy(servicedesc, 'seagulllms : SEAGULLLMS')
  1848.     CASE 1292
  1849.         StrCopy(servicedesc, 'dsdn : dsdn')
  1850.     CASE 1293
  1851.         StrCopy(servicedesc, 'pkt-krb-ipsec : PKT-KRB-IPSec')
  1852.     CASE 1294
  1853.         StrCopy(servicedesc, 'cmmdriver : CMMdriver')
  1854.     CASE 1295
  1855.         StrCopy(servicedesc, 'eetp : EETP')
  1856.     CASE 1296
  1857.         StrCopy(servicedesc, 'dproxy : dproxy')
  1858.     CASE 1297
  1859.         StrCopy(servicedesc, 'sdproxy : sdproxy')
  1860.     CASE 1298
  1861.         StrCopy(servicedesc, 'lpcp : lpcp')
  1862.     CASE 1299
  1863.         StrCopy(servicedesc, 'hp-sci : hp-sci')
  1864.     CASE 1300
  1865.         StrCopy(servicedesc, 'h323hostcallsc : H323 Host Call Secure')
  1866.     CASE 1301
  1867.         StrCopy(servicedesc, 'ci3-software-1 : CI3-Software-1')
  1868.     CASE 1302
  1869.         StrCopy(servicedesc, 'ci3-software-2 : CI3-Software-2')
  1870.     CASE 1303
  1871.         StrCopy(servicedesc, 'sftsrv : sftsrv')
  1872.     CASE 1304
  1873.         StrCopy(servicedesc, 'boomerang : Boomerang')
  1874.     CASE 1305
  1875.         StrCopy(servicedesc, 'pe-mike : pe-mike')
  1876.     CASE 1306
  1877.         StrCopy(servicedesc, 're-conn-proto : RE-Conn-Proto')
  1878.     CASE 1307
  1879.         StrCopy(servicedesc, 'pacmand : Pacmand')
  1880.     CASE 1308
  1881.         StrCopy(servicedesc, 'odsi : Optical Domain Service Interconnect (ODSI)')
  1882.     CASE 1309
  1883.         StrCopy(servicedesc, 'jtag-server : JTAG server')
  1884.     CASE 1310
  1885.         StrCopy(servicedesc, 'husky : Husky')
  1886.     CASE 1311
  1887.         StrCopy(servicedesc, 'rxmon : RxMon')
  1888.     CASE 1312
  1889.         StrCopy(servicedesc, 'sti-envision : STI Envision')
  1890.     CASE 1313
  1891.         StrCopy(servicedesc, 'bmc_patroldb : BMC_PATROLDB')
  1892.     CASE 1314
  1893.         StrCopy(servicedesc, 'pdps : Photoscript Distributed Printing System')
  1894.     CASE 1315
  1895.         StrCopy(servicedesc, 'els : els')
  1896.     CASE 1316
  1897.         StrCopy(servicedesc, 'exbit-escp : Exbit-ESCP')
  1898.     CASE 1317
  1899.         StrCopy(servicedesc, 'vrts-ipcserver : vrts-ipcserver')
  1900.     CASE 1318
  1901.         StrCopy(servicedesc, 'krb5gatekeeper : krb5gatekeeper')
  1902.     CASE 1319
  1903.         StrCopy(servicedesc, 'panja-icsp : Panja-ICSP')
  1904.     CASE 1320
  1905.         StrCopy(servicedesc, 'panja-axbnet : Panja-AXBNET')
  1906.     CASE 1321
  1907.         StrCopy(servicedesc, 'pip : PIP')
  1908.     CASE 1322
  1909.         StrCopy(servicedesc, 'novation : Novation')
  1910.     CASE 1323
  1911.         StrCopy(servicedesc, 'brcd : brcd')
  1912.     CASE 1324
  1913.         StrCopy(servicedesc, 'delta-mcp : delta-mcp')
  1914.     CASE 1325
  1915.         StrCopy(servicedesc, 'dx-instrument : DX-Instrument')
  1916.     CASE 1326
  1917.         StrCopy(servicedesc, 'wimsic : WIMSIC')
  1918.     CASE 1327
  1919.         StrCopy(servicedesc, 'ultrex : Ultrex')
  1920.     CASE 1328
  1921.         StrCopy(servicedesc, 'ewall : EWALL')
  1922.     CASE 1329
  1923.         StrCopy(servicedesc, 'netdb-export : netdb-export')
  1924.     CASE 1330
  1925.         StrCopy(servicedesc, 'streetperfect : StreetPerfect')
  1926.     CASE 1331
  1927.         StrCopy(servicedesc, 'intersan : intersan')
  1928.     CASE 1332
  1929.         StrCopy(servicedesc, 'pcia-rxp-b : PCIA RXP-B')
  1930.     CASE 1333
  1931.         StrCopy(servicedesc, 'passwrd-policy : Password Policy')
  1932.     CASE 1334
  1933.         StrCopy(servicedesc, 'writesrv : writesrv')
  1934.     CASE 1335
  1935.         StrCopy(servicedesc, 'digital-notary : Digital Notary Protocol')
  1936.     CASE 1336
  1937.         StrCopy(servicedesc, 'ischat : Instant Service Chat')
  1938.     CASE 1337
  1939.         StrCopy(servicedesc, 'menandmice-dns : menandmice DNS')
  1940.     CASE 1338
  1941.         StrCopy(servicedesc, 'wmc-log-svc : WMC-log-svr')
  1942.     CASE 1339
  1943.         StrCopy(servicedesc, 'kjtsiteserver : kjtsiteserver')
  1944.     CASE 1340
  1945.         StrCopy(servicedesc, 'naap : NAAP')
  1946.     CASE 1341
  1947.         StrCopy(servicedesc, 'qubes : QuBES')
  1948.     CASE 1342
  1949.         StrCopy(servicedesc, 'esbroker : ESBroker')
  1950.     CASE 1343
  1951.         StrCopy(servicedesc, 're101 : re101')
  1952.     CASE 1344
  1953.         StrCopy(servicedesc, 'icap : ICAP')
  1954.     CASE 1345
  1955.         StrCopy(servicedesc, 'vpjp : VPJP')
  1956.     CASE 1346
  1957.         StrCopy(servicedesc, 'alta-ana-lm : Alta Analytics License Manager ')
  1958.     CASE 1347
  1959.         StrCopy(servicedesc, 'bbn-mmc : multi media conferencing')
  1960.     CASE 1348
  1961.         StrCopy(servicedesc, 'bbn-mmx : multi media conferencing')
  1962.     CASE 1349
  1963.         StrCopy(servicedesc, 'sbook : Registration Network Protocol ; \eb[TROJANS=Back Orifice DLL]\en')
  1964.     CASE 1350
  1965.         StrCopy(servicedesc, 'editbench : Registration Network Protocol')
  1966.     CASE 1351
  1967.         StrCopy(servicedesc, 'equationbuilder : Digital Tool Works (MIT)')
  1968.     CASE 1352
  1969.         StrCopy(servicedesc, 'lotusnote : Lotus Notes')
  1970.     CASE 1353
  1971.         StrCopy(servicedesc, 'relief : Relief Consulting')
  1972.     CASE 1354
  1973.         StrCopy(servicedesc, 'rightbrain : RightBrain Software')
  1974.     CASE 1355
  1975.         StrCopy(servicedesc, 'intuitive-edge : Intuitive Edge')
  1976.     CASE 1356
  1977.         StrCopy(servicedesc, 'cuillamartin : CuillaMartin Company')
  1978.     CASE 1357
  1979.         StrCopy(servicedesc, 'pegboard : Electronic PegBoard')
  1980.     CASE 1358
  1981.         StrCopy(servicedesc, 'connlcli : CONNLCLI')
  1982.     CASE 1359
  1983.         StrCopy(servicedesc, 'ftsrv : FTSRV')
  1984.     CASE 1360
  1985.         StrCopy(servicedesc, 'mimer : MIMER')
  1986.     CASE 1361
  1987.         StrCopy(servicedesc, 'linx : LinX')
  1988.     CASE 1362
  1989.         StrCopy(servicedesc, 'timeflies : TimeFlies')
  1990.     CASE 1363
  1991.         StrCopy(servicedesc, 'ndm-requester : Network DataMover Requester')
  1992.     CASE 1364
  1993.         StrCopy(servicedesc, 'ndm-server : Network DataMover Server')
  1994.     CASE 1365
  1995.         StrCopy(servicedesc, 'adapt-sna : Network Software Associates')
  1996.     CASE 1366
  1997.         StrCopy(servicedesc, 'netware-csp : Novell NetWare Comm Service Platform')
  1998.     CASE 1367
  1999.         StrCopy(servicedesc, 'dcs : DCS')
  2000.     CASE 1368
  2001.         StrCopy(servicedesc, 'screencast : ScreenCast')
  2002.     CASE 1369
  2003.         StrCopy(servicedesc, 'gv-us : GlobalView to Unix Shell')
  2004.     CASE 1370
  2005.         StrCopy(servicedesc, 'us-gv : Unix Shell to GlobalView')
  2006.     CASE 1371
  2007.         StrCopy(servicedesc, 'fc-cli : Fujitsu Config Protocol')
  2008.     CASE 1372
  2009.         StrCopy(servicedesc, 'fc-ser : Fujitsu Config Protocol')
  2010.     CASE 1373
  2011.         StrCopy(servicedesc, 'chromagrafx : Chromagrafx')
  2012.     CASE 1374
  2013.         StrCopy(servicedesc, 'molly : EPI Software Systems')
  2014.     CASE 1375
  2015.         StrCopy(servicedesc, 'bytex : Bytex')
  2016.     CASE 1376
  2017.         StrCopy(servicedesc, 'ibm-pps : IBM Person to Person Software')
  2018.     CASE 1377
  2019.         StrCopy(servicedesc, 'cichlid : Cichlid License Manager')
  2020.     CASE 1378
  2021.         StrCopy(servicedesc, 'elan : Elan License Manager')
  2022.     CASE 1379
  2023.         StrCopy(servicedesc, 'dbreporter : Integrity Solutions')
  2024.     CASE 1380
  2025.         StrCopy(servicedesc, 'telesis-licman : Telesis Network License Manager')
  2026.     CASE 1381
  2027.         StrCopy(servicedesc, 'apple-licman : Apple Network License Manager')
  2028.     CASE 1382
  2029.         StrCopy(servicedesc, 'udt_os : udt_os')
  2030.     CASE 1383
  2031.         StrCopy(servicedesc, 'gwha : GW Hannaway Network License Manager')
  2032.     CASE 1384
  2033.         StrCopy(servicedesc, 'os-licman : Objective Solutions License Manager')
  2034.     CASE 1385
  2035.         StrCopy(servicedesc, 'atex_elmd : Atex Publishing License Manager')
  2036.     CASE 1386
  2037.         StrCopy(servicedesc, 'checksum : CheckSum License Manager')
  2038.     CASE 1387
  2039.         StrCopy(servicedesc, 'cadsi-lm : Computer Aided Design Software Inc LM')
  2040.     CASE 1388
  2041.         StrCopy(servicedesc, 'objective-dbc : Objective Solutions DataBase Cache')
  2042.     CASE 1389
  2043.         StrCopy(servicedesc, 'iclpv-dm : Document Manager')
  2044.     CASE 1390
  2045.         StrCopy(servicedesc, 'iclpv-sc : Storage Controller')
  2046.     CASE 1391
  2047.         StrCopy(servicedesc, 'iclpv-sas : Storage Access Server')
  2048.     CASE 1392
  2049.         StrCopy(servicedesc, 'iclpv-pm : Print Manager')
  2050.     CASE 1393
  2051.         StrCopy(servicedesc, 'iclpv-nls : Network Log Server')
  2052.     CASE 1394
  2053.         StrCopy(servicedesc, 'iclpv-nlc : Network Log Client')
  2054.     CASE 1395
  2055.         StrCopy(servicedesc, 'iclpv-wsm : PC Workstation Manager software')
  2056.     CASE 1396
  2057.         StrCopy(servicedesc, 'dvl-activemail : DVL Active Mail')
  2058.     CASE 1397
  2059.         StrCopy(servicedesc, 'audio-activmail : Audio Active Mail')
  2060.     CASE 1398
  2061.         StrCopy(servicedesc, 'video-activmail : Video Active Mail')
  2062.     CASE 1399
  2063.         StrCopy(servicedesc, 'cadkey-licman : Cadkey License Manager')
  2064.     CASE 1400
  2065.         StrCopy(servicedesc, 'cadkey-tablet : Cadkey Tablet Daemon')
  2066.  
  2067.  
  2068.     DEFAULT
  2069.         StrCopy(servicedesc, 'UNKNOWN')
  2070. ENDSELECT
  2071. ENDPROC
  2072.  
  2073. EXPORT PROC service7(portserv:LONG)
  2074.  
  2075. SELECT portserv
  2076.     CASE 1401
  2077.         StrCopy(servicedesc, 'goldleaf-licman : Goldleaf License Manager')
  2078.     CASE 1402
  2079.         StrCopy(servicedesc, 'prm-sm-np : Prospero Resource Manager')
  2080.     CASE 1403
  2081.         StrCopy(servicedesc, 'prm-nm-np : Prospero Resource Manager')
  2082.     CASE 1404
  2083.         StrCopy(servicedesc, 'igi-lm : Infinite Graphics License Manager')
  2084.     CASE 1405
  2085.         StrCopy(servicedesc, 'ibm-res : IBM Remote Execution Starter')
  2086.     CASE 1406
  2087.         StrCopy(servicedesc, 'netlabs-lm : NetLabs License Manager')
  2088.     CASE 1407
  2089.         StrCopy(servicedesc, 'dbsa-lm : DBSA License Manager')
  2090.     CASE 1408
  2091.         StrCopy(servicedesc, 'sophia-lm : Sophia License Manager')
  2092.     CASE 1409
  2093.         StrCopy(servicedesc, 'here-lm : Here License Manager')
  2094.     CASE 1410
  2095.         StrCopy(servicedesc, 'hiq : HiQ License Manager')
  2096.     CASE 1411
  2097.         StrCopy(servicedesc, 'af : AudioFile')
  2098.     CASE 1412
  2099.         StrCopy(servicedesc, 'innosys : InnoSys')
  2100.     CASE 1413
  2101.         StrCopy(servicedesc, 'innosys-acl : Innosys-ACL')
  2102.     CASE 1414
  2103.         StrCopy(servicedesc, 'ibm-mqseries : IBM MQSeries')
  2104.     CASE 1415
  2105.         StrCopy(servicedesc, 'dbstar : DBStar')
  2106.     CASE 1416
  2107.         StrCopy(servicedesc, 'novell-lu6.2 : Novell LU6.2')
  2108.     CASE 1417
  2109.         StrCopy(servicedesc, 'timbuktu-srv1 : Timbuktu Service (desktop viewer) 1 Port')
  2110.     CASE 1418
  2111.         StrCopy(servicedesc, 'timbuktu-srv2 : Timbuktu Service (desktop viewer) 2 Port')
  2112.     CASE 1419
  2113.         StrCopy(servicedesc, 'timbuktu-srv3 : Timbuktu Service (desktop viewer) 3 Port')
  2114.     CASE 1420
  2115.         StrCopy(servicedesc, 'timbuktu-srv4 : Timbuktu Service (desktop viewer) 4 Port')
  2116.     CASE 1421
  2117.         StrCopy(servicedesc, 'gandalf-lm : Gandalf License Manager')
  2118.     CASE 1422
  2119.         StrCopy(servicedesc, 'autodesk-lm : Autodesk License Manager')
  2120.     CASE 1423
  2121.         StrCopy(servicedesc, 'essbase : Essbase Arbor Software')
  2122.     CASE 1424
  2123.         StrCopy(servicedesc, 'hybrid : Hybrid Encryption Protocol')
  2124.     CASE 1425
  2125.         StrCopy(servicedesc, 'zion-lm : Zion Software License Manager')
  2126.     CASE 1426
  2127.         StrCopy(servicedesc, 'sais : Satellite-data Acquisition System 1')
  2128.     CASE 1427
  2129.         StrCopy(servicedesc, 'mloadd : mloadd monitoring tool')
  2130.     CASE 1428
  2131.         StrCopy(servicedesc, 'informatik-lm : Informatik License Manager')
  2132.     CASE 1429
  2133.         StrCopy(servicedesc, 'nms : Hypercom NMS')
  2134.     CASE 1430
  2135.         StrCopy(servicedesc, 'tpdu : Hypercom TPDU')
  2136.     CASE 1431
  2137.         StrCopy(servicedesc, 'rgtp : Reverse Gossip Transport')
  2138.     CASE 1432
  2139.         StrCopy(servicedesc, 'blueberry-lm : Blueberry Software License Manager')
  2140.     CASE 1433
  2141.         StrCopy(servicedesc, 'ms-sql-s : Microsoft-SQL-Server')
  2142.     CASE 1434
  2143.         StrCopy(servicedesc, 'ms-sql-m : Microsoft-SQL-Monitor')
  2144.     CASE 1435
  2145.         StrCopy(servicedesc, 'ibm-cics : IBM CICS')
  2146.     CASE 1436
  2147.         StrCopy(servicedesc, 'saism : Satellite-data Acquisition System 2')
  2148.     CASE 1437
  2149.         StrCopy(servicedesc, 'tabula : Tabula')
  2150.     CASE 1438
  2151.         StrCopy(servicedesc, 'eicon-server : Eicon Security Agent/Server')
  2152.     CASE 1439
  2153.         StrCopy(servicedesc, 'eicon-x25 : Eicon X25/SNA Gateway')
  2154.     CASE 1440
  2155.         StrCopy(servicedesc, 'eicon-slp : Eicon Service Location Protocol')
  2156.     CASE 1441
  2157.         StrCopy(servicedesc, 'cadis-1 : Cadis License Management')
  2158.     CASE 1442
  2159.         StrCopy(servicedesc, 'cadis-2 : Cadis License Management')
  2160.     CASE 1443
  2161.         StrCopy(servicedesc, 'ies-lm : Integrated Engineering Software')
  2162.     CASE 1444
  2163.         StrCopy(servicedesc, 'marcam-lm : Marcam  License Management')
  2164.     CASE 1445
  2165.         StrCopy(servicedesc, 'proxima-lm : Proxima License Manager')
  2166.     CASE 1446
  2167.         StrCopy(servicedesc, 'ora-lm : Optical Research Associates License Manager')
  2168.     CASE 1447
  2169.         StrCopy(servicedesc, 'apri-lm : Applied Parallel Research LM')
  2170.     CASE 1448
  2171.         StrCopy(servicedesc, 'oc-lm : OpenConnect License Manager')
  2172.     CASE 1449
  2173.         StrCopy(servicedesc, 'peport : PEport')
  2174.     CASE 1450
  2175.         StrCopy(servicedesc, 'dwf : Tandem Distributed Workbench Facility')
  2176.     CASE 1451
  2177.         StrCopy(servicedesc, 'infoman : IBM Information Management')
  2178.     CASE 1452
  2179.         StrCopy(servicedesc, 'gtegsc-lm : GTE Government Systems License Man ')
  2180.     CASE 1453
  2181.         StrCopy(servicedesc, 'genie-lm : Genie License Manager')
  2182.     CASE 1454
  2183.         StrCopy(servicedesc, 'interhdl_elmd : interHDL License Manager')
  2184.     CASE 1455
  2185.         StrCopy(servicedesc, 'esl-lm : ESL License Manager')
  2186.     CASE 1456
  2187.         StrCopy(servicedesc, 'dca : DCA')
  2188.     CASE 1457
  2189.         StrCopy(servicedesc, 'valisys-lm : Valisys License Manager')
  2190.     CASE 1458
  2191.         StrCopy(servicedesc, 'nrcabq-lm : Nichols Research Corp.')
  2192.     CASE 1459
  2193.         StrCopy(servicedesc, 'proshare1 : Proshare Notebook Application')
  2194.     CASE 1460
  2195.         StrCopy(servicedesc, 'proshare2 : Proshare Notebook Application')
  2196.     CASE 1461
  2197.         StrCopy(servicedesc, 'ibm_wrless_lan : IBM Wireless LAN')
  2198.     CASE 1462
  2199.         StrCopy(servicedesc, 'world-lm : World License Manager')
  2200.     CASE 1463
  2201.         StrCopy(servicedesc, 'nucleus : Nucleus')
  2202.     CASE 1464
  2203.         StrCopy(servicedesc, 'msl_lmd : MSL License Manager')
  2204.     CASE 1465
  2205.         StrCopy(servicedesc, 'pipes : Pipes Platform')
  2206.     CASE 1466
  2207.         StrCopy(servicedesc, 'oceansoft-lm : Ocean Software License Manager')
  2208.     CASE 1467
  2209.         StrCopy(servicedesc, 'csdmbase : CSDMBASE')
  2210.     CASE 1468
  2211.         StrCopy(servicedesc, 'csdm : CSDM')
  2212.     CASE 1469
  2213.         StrCopy(servicedesc, 'aal-lm : Active Analysis Limited License Manager')
  2214.     CASE 1470
  2215.         StrCopy(servicedesc, 'uaiact : Universal Analytics')
  2216.     CASE 1471
  2217.         StrCopy(servicedesc, 'csdmbase : csdmbase')
  2218.     CASE 1472
  2219.         StrCopy(servicedesc, 'csdm : csdm')
  2220.     CASE 1473
  2221.         StrCopy(servicedesc, 'openmath : OpenMath')
  2222.     CASE 1474
  2223.         StrCopy(servicedesc, 'telefinder : Telefinder')
  2224.     CASE 1475
  2225.         StrCopy(servicedesc, 'taligent-lm : Taligent License Manager')
  2226.     CASE 1476
  2227.         StrCopy(servicedesc, 'clvm-cfg : clvm-cfg')
  2228.     CASE 1477
  2229.         StrCopy(servicedesc, 'ms-sna-server : ms-sna-server')
  2230.     CASE 1478
  2231.         StrCopy(servicedesc, 'ms-sna-base : ms-sna-base')
  2232.     CASE 1479
  2233.         StrCopy(servicedesc, 'dberegister : dberegister')
  2234.     CASE 1480
  2235.         StrCopy(servicedesc, 'pacerforum : PacerForum')
  2236.     CASE 1481
  2237.         StrCopy(servicedesc, 'airs : AIRS')
  2238.     CASE 1482
  2239.         StrCopy(servicedesc, 'miteksys-lm : Miteksys License Manager')
  2240.     CASE 1483
  2241.         StrCopy(servicedesc, 'afs : AFS License Manager')
  2242.     CASE 1484
  2243.         StrCopy(servicedesc, 'confluent : Confluent License Manager')
  2244.     CASE 1485
  2245.         StrCopy(servicedesc, 'lansource : LANSource')
  2246.     CASE 1486
  2247.         StrCopy(servicedesc, 'nms_topo_serv : nms_topo_serv')
  2248.     CASE 1487
  2249.         StrCopy(servicedesc, 'localinfosrvr : LocalInfoSrvr')
  2250.     CASE 1488
  2251.         StrCopy(servicedesc, 'docstor : DocStor')
  2252.     CASE 1489
  2253.         StrCopy(servicedesc, 'dmdocbroker : dmdocbroker')
  2254.     CASE 1490
  2255.         StrCopy(servicedesc, 'insitu-conf : insitu-conf')
  2256.     CASE 1491
  2257.         StrCopy(servicedesc, 'anynetgateway : anynetgateway')
  2258.     CASE 1492
  2259.         StrCopy(servicedesc, 'stone-design-1 : stone-design-1 ; \eb[TROJANS=FTP99CMP]\en')
  2260.     CASE 1493
  2261.         StrCopy(servicedesc, 'netmap_lm : netmap_lm')
  2262.     CASE 1494
  2263.         StrCopy(servicedesc, 'ica citrix-ica : ica ; citrix-ica')
  2264.     CASE 1495
  2265.         StrCopy(servicedesc, 'cvc : Network Console')
  2266.     CASE 1496
  2267.         StrCopy(servicedesc, 'liberty-lm : liberty-lm')
  2268.     CASE 1497
  2269.         StrCopy(servicedesc, 'rfx-lm : rfx-lm')
  2270.     CASE 1498
  2271.         StrCopy(servicedesc, 'sybase-sqlany watcom-sql : Sybase SQL Any ; Watcom SQL')
  2272.     CASE 1499
  2273.         StrCopy(servicedesc, 'fhc : Federico Heinz Consultora')
  2274.     CASE 1500
  2275.         StrCopy(servicedesc, 'vlsi-lm : VLSI License Manager')
  2276.     CASE 1501
  2277.         StrCopy(servicedesc, 'saiscm sas-3 : Satellite-data Acquisition System 3')
  2278.     CASE 1502
  2279.         StrCopy(servicedesc, 'shivadiscovery : Shiva')
  2280.     CASE 1503
  2281.         StrCopy(servicedesc, 'imtc-mcs : Databeam')
  2282.     CASE 1504
  2283.         StrCopy(servicedesc, 'evb-elm : EVB Software Engineering License Manager')
  2284.     CASE 1505
  2285.         StrCopy(servicedesc, 'funkproxy : Funk Software, Inc.')
  2286.     CASE 1506
  2287.         StrCopy(servicedesc, 'utcd : Universal Time daemon (utcd)')
  2288.     CASE 1507
  2289.         StrCopy(servicedesc, 'symplex : symplex')
  2290.     CASE 1508
  2291.         StrCopy(servicedesc, 'diagmond : diagmond')
  2292.     CASE 1509
  2293.         StrCopy(servicedesc, 'robcad-lm : Robcad, Ltd. License Manager ; \eb[TROJANS=Psyber Streaming]\en')
  2294.     CASE 1510
  2295.         StrCopy(servicedesc, 'mvx-lm : Midland Valley Exploration Ltd. Lic. Man.')
  2296.     CASE 1511
  2297.         StrCopy(servicedesc, '3l-l1 : 3l-l1')
  2298.     CASE 1512
  2299.         StrCopy(servicedesc, 'wins : Microsofts Windows Internet Name Service')
  2300.     CASE 1513
  2301.         StrCopy(servicedesc, 'fujitsu-dtc : Fujitsu Systems Business of America, Inc')
  2302.     CASE 1514
  2303.         StrCopy(servicedesc, 'fujitsu-dtcns : Fujitsu Systems Business of America, Inc')
  2304.     CASE 1515
  2305.         StrCopy(servicedesc, 'ifor-protocol : ifor-protocol')
  2306.     CASE 1516
  2307.         StrCopy(servicedesc, 'vpad : Virtual Places Audio data')
  2308.     CASE 1517
  2309.         StrCopy(servicedesc, 'vpac : Virtual Places Audio control')
  2310.     CASE 1518
  2311.         StrCopy(servicedesc, 'vpvd : Virtual Places Video data')
  2312.     CASE 1519
  2313.         StrCopy(servicedesc, 'vpvc : Virtual Places Video control')
  2314.     CASE 1520
  2315.         StrCopy(servicedesc, 'atm-zip-office : atm zip office')
  2316.     CASE 1521
  2317.         StrCopy(servicedesc, 'ncube-lm : nCube License Manager')
  2318.     CASE 1522
  2319.         StrCopy(servicedesc, 'ricardo-lm rna-lm : Ricardo North America License Manager')
  2320.     CASE 1523
  2321.         StrCopy(servicedesc, 'cichild-lm : cichild')
  2322.     CASE 1524
  2323.         StrCopy(servicedesc, 'ingreslock : Ingres Database?!?')
  2324.     CASE 1525
  2325.         StrCopy(servicedesc, 'orasrv prospero-np : Oracle or Prospero Directory Service')
  2326.     CASE 1526
  2327.         StrCopy(servicedesc, 'pdap-np : Prospero Data Access Prot non-priv ')
  2328.     CASE 1527
  2329.         StrCopy(servicedesc, 'tlisrv : oracle')
  2330.     CASE 1528
  2331.         StrCopy(servicedesc, 'mciautoreg : micautoreg')
  2332.     CASE 1529
  2333.         StrCopy(servicedesc, 'coauthor : oracle')
  2334.     CASE 1530
  2335.         StrCopy(servicedesc, 'rap-service : rap-service')
  2336.     CASE 1531
  2337.         StrCopy(servicedesc, 'rap-listen : rap-listen')
  2338.     CASE 1532
  2339.         StrCopy(servicedesc, 'miroconnect : miroconnect')
  2340.     CASE 1533
  2341.         StrCopy(servicedesc, 'virtual-places : Virtual Places Software')
  2342.     CASE 1534
  2343.         StrCopy(servicedesc, 'micromuse-lm : micromuse-lm')
  2344.     CASE 1535
  2345.         StrCopy(servicedesc, 'ampr-info : ampr-info')
  2346.     CASE 1536
  2347.         StrCopy(servicedesc, 'ampr-inter : ampr-inter')
  2348.     CASE 1537
  2349.         StrCopy(servicedesc, 'sdsc-lm : isi-lm')
  2350.     CASE 1538
  2351.         StrCopy(servicedesc, '3ds-lm : 3ds-lm')
  2352.     CASE 1539
  2353.         StrCopy(servicedesc, 'intellistor-lm : Intellistor License Manager')
  2354.     CASE 1540
  2355.         StrCopy(servicedesc, 'rds : rds')
  2356.     CASE 1541
  2357.         StrCopy(servicedesc, 'rds2 : rds2')
  2358.     CASE 1542
  2359.         StrCopy(servicedesc, 'gridgen-elmd : gridgen-elmd')
  2360.     CASE 1543
  2361.         StrCopy(servicedesc, 'simba-cs : simba-cs')
  2362.     CASE 1544
  2363.         StrCopy(servicedesc, 'aspeclmd : aspeclmd')
  2364.     CASE 1545
  2365.         StrCopy(servicedesc, 'vistium-share : vistium-share')
  2366.     CASE 1546
  2367.         StrCopy(servicedesc, 'abbaccuray : abbaccuray')
  2368.     CASE 1547
  2369.         StrCopy(servicedesc, 'laplink : laplink')
  2370.     CASE 1548
  2371.         StrCopy(servicedesc, 'axon-lm : Axon License Manager')
  2372.     CASE 1549
  2373.         StrCopy(servicedesc, 'shivahose : Shiva Hose')
  2374.     CASE 1550
  2375.         StrCopy(servicedesc, '3m-image-lm : Image Storage license manager 3M Company')
  2376.     CASE 1551
  2377.         StrCopy(servicedesc, 'hecmtl-db : HECMTL-DB')
  2378.     CASE 1552
  2379.         StrCopy(servicedesc, 'pciarray : pciarray')
  2380.     CASE 1553
  2381.         StrCopy(servicedesc, 'sna-cs : sna-cs')
  2382.     CASE 1554
  2383.         StrCopy(servicedesc, 'caci-lm : CACI Products Company License Manager')
  2384.     CASE 1555
  2385.         StrCopy(servicedesc, 'livelan : livelan')
  2386.     CASE 1556
  2387.         StrCopy(servicedesc, 'ashwin : AshWin CI Tecnologies')
  2388.     CASE 1557
  2389.         StrCopy(servicedesc, 'arbortext-lm : ArborText License Manager')
  2390.     CASE 1558
  2391.         StrCopy(servicedesc, 'xingmpeg : xingmpeg')
  2392.     CASE 1559
  2393.         StrCopy(servicedesc, 'web2host : web2host')
  2394.     CASE 1560
  2395.         StrCopy(servicedesc, 'asci-val : asci-val')
  2396.     CASE 1561
  2397.         StrCopy(servicedesc, 'facilityview : facilityview')
  2398.     CASE 1562
  2399.         StrCopy(servicedesc, 'pconnectmgr : pconnectmgr')
  2400.     CASE 1563
  2401.         StrCopy(servicedesc, 'cadabra-lm : Cadabra License Manager')
  2402.     CASE 1564
  2403.         StrCopy(servicedesc, 'pay-per-view : Pay-Per-View')
  2404.     CASE 1565
  2405.         StrCopy(servicedesc, 'winddlb : WinDD')
  2406.     CASE 1566
  2407.         StrCopy(servicedesc, 'corelvideo : CORELVIDEO')
  2408.     CASE 1567
  2409.         StrCopy(servicedesc, 'jlicelmd : jlicelmd')
  2410.     CASE 1568
  2411.         StrCopy(servicedesc, 'tsspmap : tsspmap')
  2412.     CASE 1569
  2413.         StrCopy(servicedesc, 'ets : ets')
  2414.     CASE 1570
  2415.         StrCopy(servicedesc, 'orbixd : orbixd')
  2416.     CASE 1571
  2417.         StrCopy(servicedesc, 'rdb-dbs-disp : Oracle Remote Data Base')
  2418.     CASE 1572
  2419.         StrCopy(servicedesc, 'chip-lm : Chipcom License Manager')
  2420.     CASE 1573
  2421.         StrCopy(servicedesc, 'itscomm-ns : itscomm-ns')
  2422.     CASE 1574
  2423.         StrCopy(servicedesc, 'mvel-lm : mvel-lm')
  2424.     CASE 1575
  2425.         StrCopy(servicedesc, 'oraclenames : oraclenames')
  2426.     CASE 1576
  2427.         StrCopy(servicedesc, 'moldflow-lm : moldflow-lm')
  2428.     CASE 1577
  2429.         StrCopy(servicedesc, 'hypercube-lm : hypercube-lm')
  2430.     CASE 1578
  2431.         StrCopy(servicedesc, 'jacobus-lm : Jacobus License Manager')
  2432.     CASE 1579
  2433.         StrCopy(servicedesc, 'ioc-sea-lm : ioc-sea-lm')
  2434.     CASE 1580
  2435.         StrCopy(servicedesc, 'tn-tl-r1 : tn-tl-r1')
  2436.     CASE 1581
  2437.         StrCopy(servicedesc, 'mil-2045-47001 : MIL-2045-47001')
  2438.     CASE 1582
  2439.         StrCopy(servicedesc, 'msims : MSIMS')
  2440.     CASE 1583
  2441.         StrCopy(servicedesc, 'simbaexpress : simbaexpress')
  2442.     CASE 1584
  2443.         StrCopy(servicedesc, 'tn-tl-fd2 : tn-tl-fd2')
  2444.     CASE 1585
  2445.         StrCopy(servicedesc, 'intv : intv')
  2446.     CASE 1586
  2447.         StrCopy(servicedesc, 'ibm-abtact : ibm-abtact')
  2448.     CASE 1587
  2449.         StrCopy(servicedesc, 'pra_elmd : pra_elmd')
  2450.     CASE 1588
  2451.         StrCopy(servicedesc, 'triquest-lm : triquest-lm')
  2452.     CASE 1589
  2453.         StrCopy(servicedesc, 'vqp : VQP')
  2454.     CASE 1590
  2455.         StrCopy(servicedesc, 'gemini-lm : gemini-lm')
  2456.     CASE 1591
  2457.         StrCopy(servicedesc, 'ncpm-pm : ncpm-pm')
  2458.     CASE 1592
  2459.         StrCopy(servicedesc, 'commonspace : commonspace')
  2460.     CASE 1593
  2461.         StrCopy(servicedesc, 'mainsoft-lm : mainsoft-lm')
  2462.     CASE 1594
  2463.         StrCopy(servicedesc, 'sixtrak : sixtrak')
  2464.     CASE 1595
  2465.         StrCopy(servicedesc, 'radio : radio')
  2466.     CASE 1596
  2467.         StrCopy(servicedesc, 'radio-sm : radio-sm')
  2468.     CASE 1597
  2469.         StrCopy(servicedesc, 'orbplus-iiop : orbplus-iiop')
  2470.     CASE 1598
  2471.         StrCopy(servicedesc, 'picknfs : picknfs')
  2472.     CASE 1599
  2473.         StrCopy(servicedesc, 'simbaservices : simbaservices')
  2474.     CASE 1600
  2475.         StrCopy(servicedesc, 'issd : issd ; \eb[TROJANS=Shivka - Burka]\en')
  2476.  
  2477.  
  2478.     DEFAULT
  2479.         StrCopy(servicedesc, 'UNKNOWN')
  2480. ENDSELECT
  2481. ENDPROC
  2482.  
  2483. EXPORT PROC service8(portserv:LONG)
  2484.  
  2485. SELECT portserv
  2486.     CASE 1601
  2487.         StrCopy(servicedesc, 'aas : aas')
  2488.     CASE 1602
  2489.         StrCopy(servicedesc, 'inspect : inspect')
  2490.     CASE 1603
  2491.         StrCopy(servicedesc, 'picodbc : pickodbc')
  2492.     CASE 1604
  2493.         StrCopy(servicedesc, 'icabrowser : icabrowser')
  2494.     CASE 1605
  2495.         StrCopy(servicedesc, 'slp : Salutation Manager (Salutation Protocol)')
  2496.     CASE 1606
  2497.         StrCopy(servicedesc, 'slm-api : Salutation Manager (SLM-API)')
  2498.     CASE 1607
  2499.         StrCopy(servicedesc, 'stt : stt')
  2500.     CASE 1608
  2501.         StrCopy(servicedesc, 'smart-lm : Smart Corp. License Manager')
  2502.     CASE 1609
  2503.         StrCopy(servicedesc, 'isysg-lm : isysg-lm')
  2504.     CASE 1610
  2505.         StrCopy(servicedesc, 'taurus-wh : taurus-wh')
  2506.     CASE 1611
  2507.         StrCopy(servicedesc, 'ill : Inter Library Loan')
  2508.     CASE 1612
  2509.         StrCopy(servicedesc, 'netbill-trans : NetBill Transaction Server')
  2510.     CASE 1613
  2511.         StrCopy(servicedesc, 'netbill-keyrep : NetBill Key Repository')
  2512.     CASE 1614
  2513.         StrCopy(servicedesc, 'netbill-cred : NetBill Credential Server')
  2514.     CASE 1615
  2515.         StrCopy(servicedesc, 'netbill-auth : NetBill Authorization Server')
  2516.     CASE 1616
  2517.         StrCopy(servicedesc, 'netbill-prod : NetBill Product Server')
  2518.     CASE 1617
  2519.         StrCopy(servicedesc, 'nimrod-agent : Nimrod Inter-Agent Communication')
  2520.     CASE 1618
  2521.         StrCopy(servicedesc, 'skytelnet : skytelnet')
  2522.     CASE 1619
  2523.         StrCopy(servicedesc, 'xs-openstorage : xs-openstorage')
  2524.     CASE 1620
  2525.         StrCopy(servicedesc, 'faxportwinport : faxportwinport')
  2526.     CASE 1621
  2527.         StrCopy(servicedesc, 'softdataphone : softdataphone')
  2528.     CASE 1622
  2529.         StrCopy(servicedesc, 'ontime : ontime')
  2530.     CASE 1623
  2531.         StrCopy(servicedesc, 'jaleosnd : jaleosnd')
  2532.     CASE 1624
  2533.         StrCopy(servicedesc, 'udp-sr-port : udp-sr-port')
  2534.     CASE 1625
  2535.         StrCopy(servicedesc, 'svs-omagent : svs-omagent')
  2536.     CASE 1626
  2537.         StrCopy(servicedesc, 'shockwave : Shockwave')
  2538.     CASE 1627
  2539.         StrCopy(servicedesc, 't128-gateway : T.128 Gateway')
  2540.     CASE 1628
  2541.         StrCopy(servicedesc, 'lontalk-norm : LonTalk normal')
  2542.     CASE 1629
  2543.         StrCopy(servicedesc, 'lontalk-urgnt : LonTalk urgent')
  2544.     CASE 1630
  2545.         StrCopy(servicedesc, 'oraclenet8cman : Oracle Net8 Cman')
  2546.     CASE 1631
  2547.         StrCopy(servicedesc, 'visitview : Visit view')
  2548.     CASE 1632
  2549.         StrCopy(servicedesc, 'pammratc : PAMMRATC')
  2550.     CASE 1633
  2551.         StrCopy(servicedesc, 'pammrpc : PAMMRPC')
  2552.     CASE 1634
  2553.         StrCopy(servicedesc, 'loaprobe : Log On America Probe')
  2554.     CASE 1635
  2555.         StrCopy(servicedesc, 'edb-server1 : EDB Server 1')
  2556.     CASE 1636
  2557.         StrCopy(servicedesc, 'cncp : CableNet Control Protocol')
  2558.     CASE 1637
  2559.         StrCopy(servicedesc, 'cnap : CableNet Admin Protocol')
  2560.     CASE 1638
  2561.         StrCopy(servicedesc, 'cnip : CableNet Info Protocol')
  2562.     CASE 1639
  2563.         StrCopy(servicedesc, 'cert-initiator : cert-initiator')
  2564.     CASE 1640
  2565.         StrCopy(servicedesc, 'cert-responder : cert-responder')
  2566.     CASE 1641
  2567.         StrCopy(servicedesc, 'invision : InVision')
  2568.     CASE 1642
  2569.         StrCopy(servicedesc, 'isis-am : isis-am')
  2570.     CASE 1643
  2571.         StrCopy(servicedesc, 'isis-ambc : isis-ambc')
  2572.     CASE 1644
  2573.         StrCopy(servicedesc, 'saiseh : Satellite-data Acquisition System 4')
  2574.     CASE 1645
  2575.         StrCopy(servicedesc, 'datametrics radius : datametrics ; Radius Authentication and Accounting')
  2576.     CASE 1646
  2577.         StrCopy(servicedesc, 'sa-msg-port old radacct : sa-msg-port')
  2578.     CASE 1647
  2579.         StrCopy(servicedesc, 'rsap : rsap')
  2580.     CASE 1648
  2581.         StrCopy(servicedesc, 'concurrent-lm : concurrent-lm')
  2582.     CASE 1649
  2583.         StrCopy(servicedesc, 'kermit : kermit')
  2584.     CASE 1650
  2585.         StrCopy(servicedesc, 'nkd : nkd')
  2586.     CASE 1651
  2587.         StrCopy(servicedesc, 'shiva_confsrvr : shiva_confsrvr')
  2588.     CASE 1652
  2589.         StrCopy(servicedesc, 'xnmp : xnmp')
  2590.     CASE 1653
  2591.         StrCopy(servicedesc, 'alphatech-lm : alphatech-lm')
  2592.     CASE 1654
  2593.         StrCopy(servicedesc, 'stargatealerts : stargatealerts')
  2594.     CASE 1655
  2595.         StrCopy(servicedesc, 'dec-mbadmin : dec-mbadmin')
  2596.     CASE 1656
  2597.         StrCopy(servicedesc, 'dec-mbadmin-h : dec-mbadmin-h')
  2598.     CASE 1657
  2599.         StrCopy(servicedesc, 'fujitsu-mmpdc : fujitsu-mmpdc')
  2600.     CASE 1658
  2601.         StrCopy(servicedesc, 'sixnetudr : sixnetudr')
  2602.     CASE 1659
  2603.         StrCopy(servicedesc, 'sg-lm : Silicon Grail License Manager')
  2604.     CASE 1660
  2605.         StrCopy(servicedesc, 'skip-mc-gikreq : skip-mc-gikreq')
  2606.     CASE 1661
  2607.         StrCopy(servicedesc, 'netview-aix-1 : netview-aix-1')
  2608.     CASE 1662
  2609.         StrCopy(servicedesc, 'netview-aix-2 : netview-aix-2')
  2610.     CASE 1663
  2611.         StrCopy(servicedesc, 'netview-aix-3 : netview-aix-3')
  2612.     CASE 1664
  2613.         StrCopy(servicedesc, 'netview-aix-4 : netview-aix-4')
  2614.     CASE 1665
  2615.         StrCopy(servicedesc, 'netview-aix-5 : netview-aix-5')
  2616.     CASE 1666
  2617.         StrCopy(servicedesc, 'netview-aix-6 : netview-aix-6')
  2618.     CASE 1667
  2619.         StrCopy(servicedesc, 'netview-aix-7 : netview-aix-7')
  2620.     CASE 1668
  2621.         StrCopy(servicedesc, 'netview-aix-8 : netview-aix-8')
  2622.     CASE 1669
  2623.         StrCopy(servicedesc, 'netview-aix-9 : netview-aix-9')
  2624.     CASE 1670
  2625.         StrCopy(servicedesc, 'netview-aix-10 : netview-aix-10')
  2626.     CASE 1671
  2627.         StrCopy(servicedesc, 'netview-aix-11 : netview-aix-11')
  2628.     CASE 1672
  2629.         StrCopy(servicedesc, 'netview-aix-12 : netview-aix-12')
  2630.     CASE 1673
  2631.         StrCopy(servicedesc, 'proshare-mc-1 : Intel Proshare Multicast')
  2632.     CASE 1674
  2633.         StrCopy(servicedesc, 'proshare-mc-2 : Intel Proshare Multicast')
  2634.     CASE 1675
  2635.         StrCopy(servicedesc, 'pdp : Pacific Data Products')
  2636.     CASE 1676
  2637.         StrCopy(servicedesc, 'netcomm1 : netcomm1')
  2638.     CASE 1677
  2639.         StrCopy(servicedesc, 'groupwise : groupwise')
  2640.     CASE 1678
  2641.         StrCopy(servicedesc, 'prolink : prolink')
  2642.     CASE 1679
  2643.         StrCopy(servicedesc, 'darcorp-lm : darcorp-lm')
  2644.     CASE 1680
  2645.         StrCopy(servicedesc, 'microcom-sbp : microcom-sbp')
  2646.     CASE 1681
  2647.         StrCopy(servicedesc, 'sd-elmd : sd-elmd')
  2648.     CASE 1682
  2649.         StrCopy(servicedesc, 'lanyon-lantern : lanyon-lantern')
  2650.     CASE 1683
  2651.         StrCopy(servicedesc, 'ncpm-hip : ncpm-hip')
  2652.     CASE 1684
  2653.         StrCopy(servicedesc, 'snaresecure : SnareSecure')
  2654.     CASE 1685
  2655.         StrCopy(servicedesc, 'n2nremote : n2nremote')
  2656.     CASE 1686
  2657.         StrCopy(servicedesc, 'cvmon : cvmon')
  2658.     CASE 1687
  2659.         StrCopy(servicedesc, 'nsjtp-ctrl : nsjtp-ctrl')
  2660.     CASE 1688
  2661.         StrCopy(servicedesc, 'nsjtp-data : nsjtp-data')
  2662.     CASE 1689
  2663.         StrCopy(servicedesc, 'firefox : firefox')
  2664.     CASE 1690
  2665.         StrCopy(servicedesc, 'ng-umds : ng-umds')
  2666.     CASE 1691
  2667.         StrCopy(servicedesc, 'empire-empuma : empire-empuma')
  2668.     CASE 1692
  2669.         StrCopy(servicedesc, 'sstsys-lm : sstsys-lm')
  2670.     CASE 1693
  2671.         StrCopy(servicedesc, 'rrirtr : rrirtr')
  2672.     CASE 1694
  2673.         StrCopy(servicedesc, 'rrimwm : rrimwm')
  2674.     CASE 1695
  2675.         StrCopy(servicedesc, 'rrilwm : rrilwm')
  2676.     CASE 1696
  2677.         StrCopy(servicedesc, 'rrifmm : rrifmm')
  2678.     CASE 1697
  2679.         StrCopy(servicedesc, 'rrisat : rrisat')
  2680.     CASE 1698
  2681.         StrCopy(servicedesc, 'rsvp-encap-1 : RSVP-ENCAPSULATION-1')
  2682.     CASE 1699
  2683.         StrCopy(servicedesc, 'rsvp-encap-2 : RSVP-ENCAPSULATION-2')
  2684.     CASE 1700
  2685.         StrCopy(servicedesc, 'mps-raft : mps-raft')
  2686.     CASE 1701
  2687.         StrCopy(servicedesc, 'l2f : l2f')
  2688.     CASE 1701
  2689.         StrCopy(servicedesc, 'l2tp : l2tp')
  2690.     CASE 1702
  2691.         StrCopy(servicedesc, 'deskshare : deskshare')
  2692.     CASE 1703
  2693.         StrCopy(servicedesc, 'hb-engine : hb-engine')
  2694.     CASE 1704
  2695.         StrCopy(servicedesc, 'bcs-broker : bcs-broker')
  2696.     CASE 1705
  2697.         StrCopy(servicedesc, 'slingshot : slingshot')
  2698.     CASE 1706
  2699.         StrCopy(servicedesc, 'jetform : jetform')
  2700.     CASE 1707
  2701.         StrCopy(servicedesc, 'vdmplay : vdmplay')
  2702.     CASE 1708
  2703.         StrCopy(servicedesc, 'gat-lmd : gat-lmd')
  2704.     CASE 1709
  2705.         StrCopy(servicedesc, 'centra : centra')
  2706.     CASE 1710
  2707.         StrCopy(servicedesc, 'impera : impera')
  2708.     CASE 1711
  2709.         StrCopy(servicedesc, 'pptconference : pptconference')
  2710.     CASE 1712
  2711.         StrCopy(servicedesc, 'registrar : resource monitoring service')
  2712.     CASE 1713
  2713.         StrCopy(servicedesc, 'conferencetalk : ConferenceTalk')
  2714.     CASE 1714
  2715.         StrCopy(servicedesc, 'sesi-lm : sesi-lm')
  2716.     CASE 1715
  2717.         StrCopy(servicedesc, 'houdini-lm : houdini-lm')
  2718.     CASE 1716
  2719.         StrCopy(servicedesc, 'xmsg : xmsg')
  2720.     CASE 1717
  2721.         StrCopy(servicedesc, 'fj-hdnet : fj-hdnet')
  2722.     CASE 1718
  2723.         StrCopy(servicedesc, 'h323gatedisc : h323gatedisc')
  2724.     CASE 1719
  2725.         StrCopy(servicedesc, 'h323gatestat : h323gatestat ')
  2726.     CASE 1720
  2727.         StrCopy(servicedesc, 'h323hostcall : h323hostcall')
  2728.     CASE 1721
  2729.         StrCopy(servicedesc, 'caicci : caicci')
  2730.     CASE 1722
  2731.         StrCopy(servicedesc, 'hks-lm : HKS License Manager')
  2732.     CASE 1723
  2733.         StrCopy(servicedesc, 'pptp : Point to Point Tunneling Protocol')
  2734.     CASE 1724
  2735.         StrCopy(servicedesc, 'csbphonemaster : csbphonemaster')
  2736.     CASE 1725
  2737.         StrCopy(servicedesc, 'iden-ralp : iden-ralp')
  2738.     CASE 1726
  2739.         StrCopy(servicedesc, 'iberiagames : IBERIAGAMES')
  2740.     CASE 1727
  2741.         StrCopy(servicedesc, 'winddx : winddx')
  2742.     CASE 1728
  2743.         StrCopy(servicedesc, 'telindus : TELINDUS')
  2744.     CASE 1729
  2745.         StrCopy(servicedesc, 'citynl : CityNL License Management')
  2746.     CASE 1730
  2747.         StrCopy(servicedesc, 'roketz : roketz')
  2748.     CASE 1731
  2749.         StrCopy(servicedesc, 'msiccp : MSICCP')
  2750.     CASE 1732
  2751.         StrCopy(servicedesc, 'proxim : proxim')
  2752.     CASE 1733
  2753.         StrCopy(servicedesc, 'siipat : SIMS - SIIPAT Protocol for Alarm Transmission')
  2754.     CASE 1734
  2755.         StrCopy(servicedesc, 'cambertx-lm : Camber Corporation License Management')
  2756.     CASE 1735
  2757.         StrCopy(servicedesc, 'privatechat : PrivateChat')
  2758.     CASE 1736
  2759.         StrCopy(servicedesc, 'street-stream : street-stream')
  2760.     CASE 1737
  2761.         StrCopy(servicedesc, 'ultimad : ultimad')
  2762.     CASE 1738
  2763.         StrCopy(servicedesc, 'gamegen1 : GameGen1')
  2764.     CASE 1739
  2765.         StrCopy(servicedesc, 'webaccess : webaccess')
  2766.     CASE 1740
  2767.         StrCopy(servicedesc, 'encore : encore')
  2768.     CASE 1741
  2769.         StrCopy(servicedesc, 'cisco-net-mgmt : cisco-net-mgmt')
  2770.     CASE 1742
  2771.         StrCopy(servicedesc, '3Com-nsd : 3Com-nsd')
  2772.     CASE 1743
  2773.         StrCopy(servicedesc, 'cinegrfx-lm : Cinema Graphics License Manager')
  2774.     CASE 1744
  2775.         StrCopy(servicedesc, 'ncpm-ft : ncpm-ft')
  2776.     CASE 1745
  2777.         StrCopy(servicedesc, 'remote-winsock : remote-winsock')
  2778.     CASE 1746
  2779.         StrCopy(servicedesc, 'ftrapid-1 : ftrapid-1')
  2780.     CASE 1747
  2781.         StrCopy(servicedesc, 'ftrapid-2 : ftrapid-2')
  2782.     CASE 1748
  2783.         StrCopy(servicedesc, 'oracle-em1 : oracle-em1')
  2784.     CASE 1749
  2785.         StrCopy(servicedesc, 'aspen-services : aspen-services')
  2786.     CASE 1750
  2787.         StrCopy(servicedesc, 'sslp : Simple Socket Librarys PortMaster')
  2788.     CASE 1751
  2789.         StrCopy(servicedesc, 'swiftnet : SwiftNet')
  2790.     CASE 1752
  2791.         StrCopy(servicedesc, 'lofr-lm : Leap of Faith Research License Manager ')
  2792.     CASE 1753
  2793.         StrCopy(servicedesc, 'translogic-lm : Translogic License Manager')
  2794.     CASE 1754
  2795.         StrCopy(servicedesc, 'oracle-em2 : oracle-em2')
  2796.     CASE 1755
  2797.         StrCopy(servicedesc, 'ms-streaming : ms-streaming')
  2798.     CASE 1756
  2799.         StrCopy(servicedesc, 'capfast-lmd : capfast-lmd')
  2800.     CASE 1757
  2801.         StrCopy(servicedesc, 'cnhrp : cnhrp')
  2802.     CASE 1758
  2803.         StrCopy(servicedesc, 'tftp-mcast : tftp-mcast')
  2804.     CASE 1759
  2805.         StrCopy(servicedesc, 'spss-lm : SPSS License Manager')
  2806.     CASE 1760
  2807.         StrCopy(servicedesc, 'www-ldap-gw : HTTP to LDAP gateway')
  2808.     CASE 1761
  2809.         StrCopy(servicedesc, 'cft-0 : cft-0')
  2810.     CASE 1762
  2811.         StrCopy(servicedesc, 'cft-1 : cft-1')
  2812.     CASE 1763
  2813.         StrCopy(servicedesc, 'cft-2 : cft-2')
  2814.     CASE 1764
  2815.         StrCopy(servicedesc, 'cft-3 : cft-3')
  2816.     CASE 1765
  2817.         StrCopy(servicedesc, 'cft-4 : cft-4')
  2818.     CASE 1766
  2819.         StrCopy(servicedesc, 'cft-5 : cft-5')
  2820.     CASE 1767
  2821.         StrCopy(servicedesc, 'cft-6 : cft-6')
  2822.     CASE 1768
  2823.         StrCopy(servicedesc, 'cft-7 : cft-7')
  2824.     CASE 1769
  2825.         StrCopy(servicedesc, 'bmc-net-adm : bmc-net-adm')
  2826.     CASE 1770
  2827.         StrCopy(servicedesc, 'bmc-net-svc : bmc-net-svc')
  2828.     CASE 1771
  2829.         StrCopy(servicedesc, 'vaultbase : vaultbase')
  2830.     CASE 1772
  2831.         StrCopy(servicedesc, 'essweb-gw : EssWeb Gateway')
  2832.     CASE 1773
  2833.         StrCopy(servicedesc, 'kmscontrol : KMSControl')
  2834.     CASE 1774
  2835.         StrCopy(servicedesc, 'global-dtserv : global-dtserv')
  2836.     CASE 1776
  2837.         StrCopy(servicedesc, 'femis : Federal Emergency Management Information System')
  2838.     CASE 1777
  2839.         StrCopy(servicedesc, 'powerguardian : powerguardian')
  2840.     CASE 1778
  2841.         StrCopy(servicedesc, 'prodigy-intrnet : prodigy-internet')
  2842.     CASE 1779
  2843.         StrCopy(servicedesc, 'pharmasoft : pharmasoft')
  2844.     CASE 1780
  2845.         StrCopy(servicedesc, 'dpkeyserv : dpkeyserv')
  2846.     CASE 1781
  2847.         StrCopy(servicedesc, 'answersoft-lm : answersoft-lm')
  2848.     CASE 1782
  2849.         StrCopy(servicedesc, 'hp-hcip : hp-hcip')
  2850.     CASE 1784
  2851.         StrCopy(servicedesc, 'finle-lm : Finle License Manager')
  2852.     CASE 1785
  2853.         StrCopy(servicedesc, 'windlm : Wind River Systems License Manager')
  2854.     CASE 1786
  2855.         StrCopy(servicedesc, 'funk-logger : funk-logger')
  2856.     CASE 1787
  2857.         StrCopy(servicedesc, 'funk-license : funk-license')
  2858.     CASE 1788
  2859.         StrCopy(servicedesc, 'psmond : psmond')
  2860.     CASE 1789
  2861.         StrCopy(servicedesc, 'hello : hello')
  2862.     CASE 1790
  2863.         StrCopy(servicedesc, 'nmsp : Narrative Media Streaming Protocol')
  2864.     CASE 1791
  2865.         StrCopy(servicedesc, 'ea1 : EA1')
  2866.     CASE 1792
  2867.         StrCopy(servicedesc, 'ibm-dt-2 : ibm-dt-2')
  2868.     CASE 1793
  2869.         StrCopy(servicedesc, 'rsc-robot : rsc-robot')
  2870.     CASE 1794
  2871.         StrCopy(servicedesc, 'cera-bcm : cera-bcm')
  2872.     CASE 1795
  2873.         StrCopy(servicedesc, 'dpi-proxy : dpi-proxy')
  2874.     CASE 1796
  2875.         StrCopy(servicedesc, 'vocaltec-admin : Vocaltec Server Administration')
  2876.     CASE 1797
  2877.         StrCopy(servicedesc, 'uma : UMA')
  2878.     CASE 1798
  2879.         StrCopy(servicedesc, 'etp : Event Transfer Protocol')
  2880.     CASE 1799
  2881.         StrCopy(servicedesc, 'netrisk : NETRISK')
  2882.     CASE 1800
  2883.         StrCopy(servicedesc, 'ansys-lm : ANSYS-License manager')
  2884.     CASE 1801
  2885.         StrCopy(servicedesc, 'msmq : Microsoft Message Que')
  2886.     CASE 1802
  2887.         StrCopy(servicedesc, 'concomp1 : ConComp1')
  2888.     CASE 1803
  2889.         StrCopy(servicedesc, 'hp-hcip-gwy : HP-HCIP-GWY')
  2890.     CASE 1804
  2891.         StrCopy(servicedesc, 'enl : ENL')
  2892.     CASE 1805
  2893.         StrCopy(servicedesc, 'enl-name : ENL-Name')
  2894.     CASE 1806
  2895.         StrCopy(servicedesc, 'musiconline : Musiconline')
  2896.     CASE 1807
  2897.         StrCopy(servicedesc, 'fhsp : Fujitsu Hot Standby Protocol ; \eb[TROJANS=Spy Sender]\en')
  2898.     CASE 1808
  2899.         StrCopy(servicedesc, 'oracle-vp2 : Oracle-VP2')
  2900.     CASE 1809
  2901.         StrCopy(servicedesc, 'oracle-vp1 : Oracle-VP1')
  2902.     CASE 1810
  2903.         StrCopy(servicedesc, 'jerand-lm : Jerand License Manager')
  2904.     CASE 1811
  2905.         StrCopy(servicedesc, 'scientia-sdb : Scientia-SDB')
  2906.     CASE 1812
  2907.         StrCopy(servicedesc, 'radius : RADIUS Authentication Protocol')
  2908.     CASE 1813
  2909.         StrCopy(servicedesc, 'radius-acct : RADIUS Accounting Protocol')
  2910.     CASE 1814
  2911.         StrCopy(servicedesc, 'tdp-suite : TDP Suite')
  2912.     CASE 1815
  2913.         StrCopy(servicedesc, 'mmpft : MMPFT')
  2914.     CASE 1816
  2915.         StrCopy(servicedesc, 'harp : HARP')
  2916.     CASE 1817
  2917.         StrCopy(servicedesc, 'rkb-oscs : RKB-OSCS')
  2918.     CASE 1818
  2919.         StrCopy(servicedesc, 'etftp : Enhanced Trivial File Transfer Protocol')
  2920.     CASE 1819
  2921.         StrCopy(servicedesc, 'plato-lm : Plato License Manager')
  2922.     CASE 1820
  2923.         StrCopy(servicedesc, 'mcagent : mcagent')
  2924.     CASE 1821
  2925.         StrCopy(servicedesc, 'donnyworld : donnyworld')
  2926.     CASE 1822
  2927.         StrCopy(servicedesc, 'es-elmd : es-elmd')
  2928.     CASE 1823
  2929.         StrCopy(servicedesc, 'unisys-lm : Unisys Natural Language License Manager')
  2930.     CASE 1824
  2931.         StrCopy(servicedesc, 'metrics-pas : metrics-pas')
  2932.     CASE 1825
  2933.         StrCopy(servicedesc, 'direcpc-video : DirecPC Video')
  2934.     CASE 1826
  2935.         StrCopy(servicedesc, 'ardt : ARDT')
  2936.     CASE 1827
  2937.         StrCopy(servicedesc, 'asi pcm : ASI ; PCM Agent (AutoSecure Policy Compliance Manager)')
  2938.     CASE 1828
  2939.         StrCopy(servicedesc, 'itm-mcell-u : itm-mcell-u')
  2940.     CASE 1829
  2941.         StrCopy(servicedesc, 'optika-emedia : Optika eMedia ')
  2942.     CASE 1830
  2943.         StrCopy(servicedesc, 'net8-cman : Oracle Net8 CMan Admin')
  2944.     CASE 1831
  2945.         StrCopy(servicedesc, 'myrtle : Myrtle')
  2946.     CASE 1832
  2947.         StrCopy(servicedesc, 'tht-treasure : ThoughtTreasure')
  2948.     CASE 1833
  2949.         StrCopy(servicedesc, 'udpradio : udpradio')
  2950.     CASE 1834
  2951.         StrCopy(servicedesc, 'ardusuni : ARDUS Unicast')
  2952.     CASE 1835
  2953.         StrCopy(servicedesc, 'ardusmul : ARDUS Multicast')
  2954.     CASE 1836
  2955.         StrCopy(servicedesc, 'ste-smsc : ste-smsc')
  2956.     CASE 1837
  2957.         StrCopy(servicedesc, 'csoft1 : csoft1')
  2958.     CASE 1838
  2959.         StrCopy(servicedesc, 'talnet : TALNET')
  2960.     CASE 1839
  2961.         StrCopy(servicedesc, 'netopia-vo1 : netopia-vo1')
  2962.     CASE 1840
  2963.         StrCopy(servicedesc, 'netopia-vo2 : netopia-vo2')
  2964.     CASE 1841
  2965.         StrCopy(servicedesc, 'netopia-vo3 : netopia-vo3')
  2966.     CASE 1842
  2967.         StrCopy(servicedesc, 'netopia-vo4 : netopia-vo4')
  2968.     CASE 1843
  2969.         StrCopy(servicedesc, 'netopia-vo5 : netopia-vo5')
  2970.     CASE 1844
  2971.         StrCopy(servicedesc, 'direcpc-dll : DirecPC-DLL')
  2972.     CASE 1845
  2973.         StrCopy(servicedesc, 'altalink : altalink')
  2974.     CASE 1846
  2975.         StrCopy(servicedesc, 'tunstall-pnc : Tunstall PNC')
  2976.     CASE 1847
  2977.         StrCopy(servicedesc, 'slp-notify : SLP Notification')
  2978.     CASE 1848
  2979.         StrCopy(servicedesc, 'fjdocdist : fjdocdist')
  2980.     CASE 1849
  2981.         StrCopy(servicedesc, 'alpha-sms : ALPHA-SMS')
  2982.     CASE 1850
  2983.         StrCopy(servicedesc, 'gsi : GSI')
  2984.     CASE 1851
  2985.         StrCopy(servicedesc, 'ctcd : ctcd')
  2986.     CASE 1852
  2987.         StrCopy(servicedesc, 'virtual-time : Virtual Time')
  2988.     CASE 1853
  2989.         StrCopy(servicedesc, 'vids-avtp : VIDS-AVTP')
  2990.     CASE 1854
  2991.         StrCopy(servicedesc, 'buddy-draw : Buddy Draw')
  2992.     CASE 1855
  2993.         StrCopy(servicedesc, 'fiorano-rtrsvc : Fiorano RtrSvc')
  2994.     CASE 1856
  2995.         StrCopy(servicedesc, 'fiorano-msgsvc : Fiorano MsgSvc')
  2996.     CASE 1857
  2997.         StrCopy(servicedesc, 'datacaptor : DataCaptor')
  2998.     CASE 1858
  2999.         StrCopy(servicedesc, 'privateark : PrivateArk')
  3000.     CASE 1859
  3001.         StrCopy(servicedesc, 'gammafetchsvr : Gamma Fetcher Server')
  3002.     CASE 1860
  3003.         StrCopy(servicedesc, 'sunscalar-svc : SunSCALAR Services')
  3004.     CASE 1861
  3005.         StrCopy(servicedesc, 'lecroy-vicp : LeCroy VICP')
  3006.     CASE 1862
  3007.         StrCopy(servicedesc, 'techra-server : techra-server')
  3008.     CASE 1863
  3009.         StrCopy(servicedesc, 'msnp : MSNP')
  3010.     CASE 1864
  3011.         StrCopy(servicedesc, 'paradym-31port : Paradym 31 Port')
  3012.     CASE 1865
  3013.         StrCopy(servicedesc, 'entp : ENTP')
  3014.     CASE 1866
  3015.         StrCopy(servicedesc, 'swrmi : swrmi')
  3016.     CASE 1867
  3017.         StrCopy(servicedesc, 'udrive : UDRIVE')
  3018.     CASE 1868
  3019.         StrCopy(servicedesc, 'viziblebrowser : VizibleBrowser')
  3020.     CASE 1869
  3021.         StrCopy(servicedesc, 'yestrader : YesTrader')
  3022.     CASE 1870
  3023.         StrCopy(servicedesc, 'sunscalar-dns : SunSCALAR DNS Service')
  3024.     CASE 1871
  3025.         StrCopy(servicedesc, 'canocentral0 : Cano Central 0')
  3026.     CASE 1872
  3027.         StrCopy(servicedesc, 'canocentral1 : Cano Central 1')
  3028.     CASE 1873
  3029.         StrCopy(servicedesc, 'fjmpjps : Fjmpjps')
  3030.     CASE 1874
  3031.         StrCopy(servicedesc, 'fjswapsnp : Fjswapsnp')
  3032.     CASE 1875
  3033.         StrCopy(servicedesc, 'westell-stats : westell stats')
  3034.     CASE 1876
  3035.         StrCopy(servicedesc, 'ewcappsrv : ewcappsrv')
  3036.     CASE 1877
  3037.         StrCopy(servicedesc, 'hp-webqosdb : hp-webqosdb')
  3038.     CASE 1881
  3039.         StrCopy(servicedesc, 'ibm-mqseries2 : IBM MQSeries')
  3040.     CASE 1895
  3041.         StrCopy(servicedesc, 'vista-4gl : Vista 4GL')
  3042.     CASE 1899
  3043.         StrCopy(servicedesc, 'mc2studios : MC2Studios')
  3044.     CASE 1900
  3045.         StrCopy(servicedesc, 'ssdp : SSDP')
  3046.     CASE 1901
  3047.         StrCopy(servicedesc, 'fjicl-tep-a : Fujitsu ICL Terminal Emulator Program A')
  3048.     CASE 1902
  3049.         StrCopy(servicedesc, 'fjicl-tep-b : Fujitsu ICL Terminal Emulator Program B')
  3050.     CASE 1903
  3051.         StrCopy(servicedesc, 'linkname : Local Link Name Resolution')
  3052.     CASE 1904
  3053.         StrCopy(servicedesc, 'fjicl-tep-c : Fujitsu ICL Terminal Emulator Program C')
  3054.     CASE 1905
  3055.         StrCopy(servicedesc, 'sugp : Secure UP.Link Gateway Protocol')
  3056.     CASE 1906
  3057.         StrCopy(servicedesc, 'tpmd : TPortMapperReq')
  3058.     CASE 1907
  3059.         StrCopy(servicedesc, 'intrastar : IntraSTAR')
  3060.     CASE 1908
  3061.         StrCopy(servicedesc, 'dawn : Dawn')
  3062.     CASE 1909
  3063.         StrCopy(servicedesc, 'global-wlink : Global World Link')
  3064.     CASE 1910
  3065.         StrCopy(servicedesc, 'ultrabac : ultrabac')
  3066.     CASE 1911
  3067.         StrCopy(servicedesc, 'mtp : Starlight Networks Multimedia Transport Protocol')
  3068.     CASE 1912
  3069.         StrCopy(servicedesc, 'rhp-iibp : rhp-iibp')
  3070.     CASE 1913
  3071.         StrCopy(servicedesc, 'armadp : armadp')
  3072.     CASE 1914
  3073.         StrCopy(servicedesc, 'elm-momentum : Elm-Momentum')
  3074.     CASE 1915
  3075.         StrCopy(servicedesc, 'facelink : FACELINK')
  3076.     CASE 1916
  3077.         StrCopy(servicedesc, 'persona : Persoft Persona')
  3078.     CASE 1917
  3079.         StrCopy(servicedesc, 'noagent : nOAgent')
  3080.     CASE 1918
  3081.         StrCopy(servicedesc, 'can-nds : Candle Directory Service - NDS')
  3082.     CASE 1919
  3083.         StrCopy(servicedesc, 'can-dch : Candle Directory Service - DCH')
  3084.     CASE 1920
  3085.         StrCopy(servicedesc, 'can-ferret : Candle Directory Service - FERRET')
  3086.     CASE 1921
  3087.         StrCopy(servicedesc, 'noadmin : NoAdmin')
  3088.     CASE 1922
  3089.         StrCopy(servicedesc, 'tapestry : Tapestry')
  3090.     CASE 1923
  3091.         StrCopy(servicedesc, 'spice : SPICE')
  3092.     CASE 1924
  3093.         StrCopy(servicedesc, 'xiip : XIIP')
  3094.     CASE 1930
  3095.         StrCopy(servicedesc, 'driveappserver : Drive AppServer')
  3096.     CASE 1931
  3097.         StrCopy(servicedesc, 'amdsched : AMD SCHED')
  3098.     CASE 1941
  3099.         StrCopy(servicedesc, 'dic-aida : DIC-Aida')
  3100.     CASE 1944
  3101.         StrCopy(servicedesc, 'close-combat : close-combat')
  3102.     CASE 1945
  3103.         StrCopy(servicedesc, 'dialogic-elmd : dialogic-elmd')
  3104.     CASE 1946
  3105.         StrCopy(servicedesc, 'tekpls : tekpls')
  3106.     CASE 1947
  3107.         StrCopy(servicedesc, 'hlserver : hlserver')
  3108.     CASE 1948
  3109.         StrCopy(servicedesc, 'eye2eye : eye2eye')
  3110.     CASE 1949
  3111.         StrCopy(servicedesc, 'ismaeasdaqlive : ISMA Easdaq Live')
  3112.     CASE 1950
  3113.         StrCopy(servicedesc, 'ismaeasdaqtest : ISMA Easdaq Test')
  3114.     CASE 1951
  3115.         StrCopy(servicedesc, 'bcs-lmserver : bcs-lmserver')
  3116.     CASE 1952
  3117.         StrCopy(servicedesc, 'mpnjsc : mpnjsc')
  3118.     CASE 1953
  3119.         StrCopy(servicedesc, 'rapidbase : Rapid Base')
  3120.     CASE 1957
  3121.         StrCopy(servicedesc, 'unix-status : unix-status')
  3122.     CASE 1961
  3123.         StrCopy(servicedesc, 'bts-appserver : BTS APPSERVER')
  3124.     CASE 1962
  3125.         StrCopy(servicedesc, 'biap-mp : BIAP-MP')
  3126.     CASE 1963
  3127.         StrCopy(servicedesc, 'webmachine : WebMachine')
  3128.     CASE 1964
  3129.         StrCopy(servicedesc, 'solid-e-engine : SOLID E ENGINE')
  3130.     CASE 1965
  3131.         StrCopy(servicedesc, 'tivoli-npm : Tivoli NPM')
  3132.     CASE 1966
  3133.         StrCopy(servicedesc, 'slush : Slush')
  3134.     CASE 1967
  3135.         StrCopy(servicedesc, 'sns-quote : SNS Quote')
  3136.     CASE 1972
  3137.         StrCopy(servicedesc, 'intersys-cache : Cache')
  3138.     CASE 1973
  3139.         StrCopy(servicedesc, 'dlsrap : Data Link Switching Remote Access Protocol')
  3140.     CASE 1974
  3141.         StrCopy(servicedesc, 'drp : DRP')
  3142.     CASE 1975
  3143.         StrCopy(servicedesc, 'tcoflashagent : TCO Flash Agent')
  3144.     CASE 1976
  3145.         StrCopy(servicedesc, 'tcoregagent : TCO Reg Agent ')
  3146.     CASE 1977
  3147.         StrCopy(servicedesc, 'tcoaddressbook : TCO Address Book')
  3148.     CASE 1978
  3149.         StrCopy(servicedesc, 'unisql : UniSQL')
  3150.     CASE 1979
  3151.         StrCopy(servicedesc, 'unisql-java : UniSQL Java')
  3152.     CASE 1981
  3153.         StrCopy(servicedesc, '\eb[TROJANS=ShockRave]\en')
  3154.     CASE 1984
  3155.         StrCopy(servicedesc, 'bb : BB')
  3156.     CASE 1985
  3157.         StrCopy(servicedesc, 'hsrp : Hot Standby Router Protocol')
  3158.     CASE 1986
  3159.         StrCopy(servicedesc, 'licensedaemon : cisco license management')
  3160.     CASE 1987
  3161.         StrCopy(servicedesc, 'tr-rsrb-p1 : cisco RSRB Priority 1 port')
  3162.     CASE 1988
  3163.         StrCopy(servicedesc, 'tr-rsrb-p2 : cisco RSRB Priority 2 port')
  3164.     CASE 1989
  3165.         StrCopy(servicedesc, 'tr-rsrb-p3 mshnet : cisco RSRB Priority 3 port ; MHSnet system')
  3166.     CASE 1990
  3167.         StrCopy(servicedesc, 'stun-p1 : cisco STUN Priority 1 port')
  3168.     CASE 1991
  3169.         StrCopy(servicedesc, 'stun-p2 : cisco STUN Priority 2 port')
  3170.     CASE 1992
  3171.         StrCopy(servicedesc, 'stun-p3 ipsendmsg : cisco STUN Priority 3 port ; IPsendmsg')
  3172.     CASE 1993
  3173.         StrCopy(servicedesc, 'snmp-tcp-port : cisco SNMP TCP port')
  3174.     CASE 1994
  3175.         StrCopy(servicedesc, 'stun-port : cisco serial tunnel port')
  3176.     CASE 1995
  3177.         StrCopy(servicedesc, 'perf-port : cisco perf port')
  3178.     CASE 1996
  3179.         StrCopy(servicedesc, 'tr-rsrb-port : cisco Remote SRB port')
  3180.     CASE 1997
  3181.         StrCopy(servicedesc, 'gdp-port : cisco Gateway Discovery Protocol')
  3182.     CASE 1998
  3183.         StrCopy(servicedesc, 'x25-svc-port : cisco X.25 service (XOT)')
  3184.     CASE 1999
  3185.         StrCopy(servicedesc, 'tcp-id-port : cisco identification port ; \eb[TROJANS=Backdoor, TransScout]\en')
  3186.     CASE 2000
  3187.         StrCopy(servicedesc, 'callbook : callbook ; \eb[TROJANS=TransScout]\en')
  3188.     CASE 2001
  3189.         StrCopy(servicedesc, 'dc : dc ; \eb[TROJANS=TransScout, Trojan Cow]\en')
  3190.     CASE 2002
  3191.         StrCopy(servicedesc, 'globe : globe ; \eb[TROJANS=TransScout]\en')
  3192.     CASE 2003
  3193.         StrCopy(servicedesc, 'cfinger : GNU Finger ; \eb[TROJANS=TransScout]\en')
  3194.     CASE 2004
  3195.         StrCopy(servicedesc, 'mailbox : mailbox ; \eb[TROJANS=TransScout]\en')
  3196.     CASE 2005
  3197.         StrCopy(servicedesc, 'berknet deslogin oracle : berknet ; encrypted symmetric login ; \eb[TROJANS=TransScout]\en')
  3198.     CASE 2006
  3199.         StrCopy(servicedesc, 'invokator raid-cc : invokator ; raid')
  3200.     CASE 2007
  3201.         StrCopy(servicedesc, 'dectalk raid-am : DEC Talk ; raid')
  3202.     CASE 2008
  3203.         StrCopy(servicedesc, 'conf terminaldb : conf')
  3204.     CASE 2009
  3205.         StrCopy(servicedesc, 'news whosockami : news')
  3206.     CASE 2010
  3207.         StrCopy(servicedesc, 'search pipe_server : search ; Also used by NFR')
  3208.     CASE 2011
  3209.         StrCopy(servicedesc, 'raid-cc : raid')
  3210.     CASE 2012
  3211.         StrCopy(servicedesc, 'ttyinfo : ttyinfo (Terminal Info)')
  3212.     CASE 2013
  3213.         StrCopy(servicedesc, 'raid-am : raid-am')
  3214.     CASE 2014
  3215.         StrCopy(servicedesc, 'troff : troff')
  3216.     CASE 2015
  3217.         StrCopy(servicedesc, 'cypress : cypress')
  3218.     CASE 2016
  3219.         StrCopy(servicedesc, 'bootserver : bootserver')
  3220.     CASE 2017
  3221.         StrCopy(servicedesc, 'cypress-stat bootclient : cypress-stat')
  3222.     CASE 2018
  3223.         StrCopy(servicedesc, 'terminaldb rellpack : terminaldb')
  3224.     CASE 2019
  3225.         StrCopy(servicedesc, 'whosockami about : whosockami')
  3226.     CASE 2020
  3227.         StrCopy(servicedesc, 'xinupageserver : xinupageserver')
  3228.     CASE 2021
  3229.         StrCopy(servicedesc, 'servexec : servexec')
  3230.     CASE 2022
  3231.         StrCopy(servicedesc, 'down : down')
  3232.     CASE 2023
  3233.         StrCopy(servicedesc, 'xinuexpansion3 : xinuexpansion3 ; \eb[TROJANS=Pass Ripper]\en')
  3234.     CASE 2024
  3235.         StrCopy(servicedesc, 'xinuexpansion4 : xinuexpansion4')
  3236.     CASE 2025
  3237.         StrCopy(servicedesc, 'ellpack xribs : ellpack')
  3238.     CASE 2026
  3239.         StrCopy(servicedesc, 'scrabble : Scrabble')
  3240.     CASE 2027
  3241.         StrCopy(servicedesc, 'shadowserver : shadowserver')
  3242.     CASE 2028
  3243.         StrCopy(servicedesc, 'submitserver : submtserver')
  3244.     CASE 2030
  3245.         StrCopy(servicedesc, 'device2 : device2')
  3246.     CASE 2032
  3247.         StrCopy(servicedesc, 'blackboard : blackboard (Backboard WWW forum???) ')
  3248.     CASE 2033
  3249.         StrCopy(servicedesc, 'glogger : glogger')
  3250.     CASE 2034
  3251.         StrCopy(servicedesc, 'scoremgr : scoremgr')
  3252.     CASE 2035
  3253.         StrCopy(servicedesc, 'imsldoc : imsldoc')
  3254.     CASE 2038
  3255.         StrCopy(servicedesc, 'objectmanager : objectmanager')
  3256.     CASE 2040
  3257.         StrCopy(servicedesc, 'lam : lam')
  3258.     CASE 2041
  3259.         StrCopy(servicedesc, 'interbase : interbase')
  3260.     CASE 2042
  3261.         StrCopy(servicedesc, 'isis : isis')
  3262.     CASE 2043
  3263.         StrCopy(servicedesc, 'isis-bcast : isis-bcast')
  3264.     CASE 2044
  3265.         StrCopy(servicedesc, 'rimsl : rimsl')
  3266.     CASE 2045
  3267.         StrCopy(servicedesc, 'cdfunc : cdfunc')
  3268.     CASE 2046
  3269.         StrCopy(servicedesc, 'sdfunc : sdfunc')
  3270.     CASE 2047
  3271.         StrCopy(servicedesc, 'dls : dls')
  3272.     CASE 2048
  3273.         StrCopy(servicedesc, 'dls-monitor : dls-monitor')
  3274.     CASE 2049
  3275.         StrCopy(servicedesc, 'nfsd nfs : Network File System Server Daemon (cots) ; shilp : shilp')
  3276.     CASE 2053
  3277.         StrCopy(servicedesc, 'knetd : Kerberos De-Multiplexer')
  3278.     CASE 2064
  3279.         StrCopy(servicedesc, 'xxx : Keyblock Proxy for RSA Cryptographic challenge')
  3280.     CASE 2065
  3281.         StrCopy(servicedesc, 'dlsrpn : Data Link Switch Read Port Number')
  3282.     CASE 2067
  3283.         StrCopy(servicedesc, 'dlswpn : Data Link Switch Write Port Number')
  3284.     CASE 2087
  3285.         StrCopy(servicedesc, 'eli : ELI - Event Logging Integration')
  3286.     CASE 2089
  3287.         StrCopy(servicedesc, 'sep : Security Encapsulation Protocol - SEP')
  3288.     CASE 2090
  3289.         StrCopy(servicedesc, 'lrp : Load Report Protocol')
  3290.     CASE 2091
  3291.         StrCopy(servicedesc, 'prp : PRP')
  3292.     CASE 2092
  3293.         StrCopy(servicedesc, 'descent3 : Descent 3')
  3294.     CASE 2093
  3295.         StrCopy(servicedesc, 'nbx-cc : NBX CC')
  3296.     CASE 2094
  3297.         StrCopy(servicedesc, 'nbx-au : NBX AU')
  3298.     CASE 2095
  3299.         StrCopy(servicedesc, 'nbx-ser : NBX SER')
  3300.     CASE 2096
  3301.         StrCopy(servicedesc, 'nbx-dir : NBX DIR')
  3302.     CASE 2097
  3303.         StrCopy(servicedesc, 'jetformpreview : Jet Form Preview')
  3304.     CASE 2098
  3305.         StrCopy(servicedesc, 'dialog-port : Dialog Port')
  3306.     CASE 2099
  3307.         StrCopy(servicedesc, 'h2250-annex-g : H.225.0 Annex G')
  3308.     CASE 2100
  3309.         StrCopy(servicedesc, 'amiganetfs : amiganetfs')
  3310.  
  3311.  
  3312.     DEFAULT
  3313.         StrCopy(servicedesc, 'UNKNOWN')
  3314. ENDSELECT
  3315. ENDPROC
  3316.  
  3317.  
  3318.  
  3319.  
  3320. EXPORT PROC service9(portserv:LONG)
  3321.  
  3322. SELECT portserv
  3323.     CASE 2101
  3324.         StrCopy(servicedesc, 'rtcm-sc104 : rtcm-sc104')
  3325.     CASE 2102
  3326.         StrCopy(servicedesc, 'zephyr-srv : Zephyr server')
  3327.     CASE 2103
  3328.         StrCopy(servicedesc, 'zephyr-clt : Zephyr serv-hm connection')
  3329.     CASE 2104
  3330.         StrCopy(servicedesc, 'zephyr-hm : Zephyr hostmanager')
  3331.     CASE 2105
  3332.         StrCopy(servicedesc, 'minipay : MiniPay ; eklogin : Kerberos Encrypted Remote Login')
  3333.     CASE 2106
  3334.         StrCopy(servicedesc, 'mzap ekshell : MZAP ; Kerberos Encrypted Remote Shell')
  3335.     CASE 2107
  3336.         StrCopy(servicedesc, 'bintec-admin : BinTec Admin ')
  3337.     CASE 2108
  3338.         StrCopy(servicedesc, 'comcam rkinit : Comcam ; Kerberos Remote Initialisation')
  3339.     CASE 2109
  3340.         StrCopy(servicedesc, 'ergolight : Ergolight')
  3341.     CASE 2110
  3342.         StrCopy(servicedesc, 'umsp : UMSP')
  3343.     CASE 2111
  3344.         StrCopy(servicedesc, 'dsatp kx : DSATP ; X over Kerberos')
  3345.     CASE 2112
  3346.         StrCopy(servicedesc, 'idonix-metanet kip : Idonix MetaNet ; IP over Kerberos')
  3347.     CASE 2113
  3348.         StrCopy(servicedesc, 'hsl-storm : HSL StoRM')
  3349.     CASE 2114
  3350.         StrCopy(servicedesc, 'newheights : NEWHEIGHTS')
  3351.     CASE 2115
  3352.         StrCopy(servicedesc, 'kdm : KDM ; \eb[TROJANS=Bugs]\en')
  3353.     CASE 2116
  3354.         StrCopy(servicedesc, 'ccowcmr : CCOWCMR')
  3355.     CASE 2117
  3356.         StrCopy(servicedesc, 'mentaclient : MENTACLIENT')
  3357.     CASE 2118
  3358.         StrCopy(servicedesc, 'mentaserver : MENTASERVER')
  3359.     CASE 2119
  3360.         StrCopy(servicedesc, 'gsigatekeeper : GSIGATEKEEPER')
  3361.     CASE 2120
  3362.         StrCopy(servicedesc, 'qencp kauth : Quick Eagle Networks CP ; Remote Kauth')
  3363.     CASE 2121
  3364.         StrCopy(servicedesc, 'scientia-ssdb : SCIENTIA-SSDB')
  3365.     CASE 2122
  3366.         StrCopy(servicedesc, 'caupc-remote : CauPC Remote Control')
  3367.     CASE 2123
  3368.         StrCopy(servicedesc, 'gtp-control : GTP-Control Plane (3GPP)')
  3369.     CASE 2124
  3370.         StrCopy(servicedesc, 'elatelink : ELATELINK')
  3371.     CASE 2125
  3372.         StrCopy(servicedesc, 'lockstep : LOCKSTEP')
  3373.     CASE 2126
  3374.         StrCopy(servicedesc, 'pktcable-cops : PktCable-COPS')
  3375.     CASE 2127
  3376.         StrCopy(servicedesc, 'index-pc-wb : INDEX-PC-WB')
  3377.     CASE 2128
  3378.         StrCopy(servicedesc, 'net-steward : Net Steward Control')
  3379.     CASE 2129
  3380.         StrCopy(servicedesc, 'cs-live : cs-live.com')
  3381.     CASE 2130
  3382.         StrCopy(servicedesc, 'swc-xds : SWC-XDS')
  3383.     CASE 2131
  3384.         StrCopy(servicedesc, 'avantageb2b : Avantageb2b')
  3385.     CASE 2132
  3386.         StrCopy(servicedesc, 'avail-epmap : AVAIL-EPMAP')
  3387.     CASE 2133
  3388.         StrCopy(servicedesc, 'zymed-zpp : ZYMED-ZPP')
  3389.     CASE 2134
  3390.         StrCopy(servicedesc, 'avenue : AVENUE')
  3391.     CASE 2135
  3392.         StrCopy(servicedesc, 'gris : Grid Resource Information Server')
  3393.     CASE 2136
  3394.         StrCopy(servicedesc, 'appworxsrv : APPWORXSRV')
  3395.     CASE 2137
  3396.         StrCopy(servicedesc, 'connect : CONNECT')
  3397.     CASE 2138
  3398.         StrCopy(servicedesc, 'unbind-cluster : UNBIND-CLUSTER')
  3399.     CASE 2139
  3400.         StrCopy(servicedesc, 'ias-auth : IAS-AUTH')
  3401.     CASE 2140
  3402.         StrCopy(servicedesc, 'ias-reg : IAS-REG ; \eb[TROJANS=Deep Throat, The Invasor]\en')
  3403.     CASE 2141
  3404.         StrCopy(servicedesc, 'ias-admind : IAS-ADMIND')
  3405.     CASE 2142
  3406.         StrCopy(servicedesc, 'tdm-over-ip : TDM-OVER-IP')
  3407.     CASE 2143
  3408.         StrCopy(servicedesc, 'lv-jc : Live Vault Job Control')
  3409.     CASE 2144
  3410.         StrCopy(servicedesc, 'lv-ffx : Live Vault Fast Object Transfer')
  3411.     CASE 2145
  3412.         StrCopy(servicedesc, 'lv-pici : Live Vault Remote Diagnostic Console Support')
  3413.     CASE 2146
  3414.         StrCopy(servicedesc, 'lv-not : Live Vault Admin Event Notification')
  3415.     CASE 2147
  3416.         StrCopy(servicedesc, 'lv-auth : Live Vault Authentication')
  3417.     CASE 2148
  3418.         StrCopy(servicedesc, 'veritas-ucl : VERITAS UNIVERSAL COMMUNICATION LAYER')
  3419.     CASE 2149
  3420.         StrCopy(servicedesc, 'acptsys : ACPTSYS')
  3421.     CASE 2150
  3422.         StrCopy(servicedesc, 'dynamic3d : DYNAMIC3D ; ninstall : Ninstall Service')
  3423.     CASE 2151
  3424.         StrCopy(servicedesc, 'docent : DOCENT')
  3425.     CASE 2155
  3426.         StrCopy(servicedesc, '\eb[TROJANS=Illusion Mailer]\en')
  3427.     CASE 2152
  3428.         StrCopy(servicedesc, 'gtp-user : GTP-User Plane (3GPP)')
  3429.     CASE 2165
  3430.         StrCopy(servicedesc, 'x-bone-api : X-Bone API')
  3431.     CASE 2166
  3432.         StrCopy(servicedesc, 'iwserver : IWSERVER')
  3433.     CASE 2180
  3434.         StrCopy(servicedesc, 'mc-gt-srv : Millicent Vendor Gateway Server')
  3435.     CASE 2181
  3436.         StrCopy(servicedesc, 'eforward : eforward')
  3437.     CASE 2200
  3438.         StrCopy(servicedesc, 'ici : ICI')
  3439.     CASE 2201
  3440.         StrCopy(servicedesc, 'ats : Advanced Training System Program')
  3441.     CASE 2202
  3442.         StrCopy(servicedesc, 'imtc-map : Int. Multimedia Teleconferencing Cosortium')
  3443.     CASE 2213
  3444.         StrCopy(servicedesc, 'kali : Kali')
  3445.     CASE 2220
  3446.         StrCopy(servicedesc, 'netiq : NetIQ Pegasus')
  3447.     CASE 2221
  3448.         StrCopy(servicedesc, 'rockwell-csp1 : Rockwell CSP1')
  3449.     CASE 2222
  3450.         StrCopy(servicedesc, 'rockwell-csp2 : Rockwell CSP2')
  3451.     CASE 2223
  3452.         StrCopy(servicedesc, 'rockwell-csp3 : Rockwell CSP3')
  3453.     CASE 2232
  3454.         StrCopy(servicedesc, 'ivs-video : IVS Video default')
  3455.     CASE 2233
  3456.         StrCopy(servicedesc, 'infocrypt : INFOCRYPT')
  3457.     CASE 2234
  3458.         StrCopy(servicedesc, 'directplay : DirectPlay')
  3459.     CASE 2235
  3460.         StrCopy(servicedesc, 'sercomm-wlink : Sercomm-WLink')
  3461.     CASE 2236
  3462.         StrCopy(servicedesc, 'nani : Nani')
  3463.     CASE 2237
  3464.         StrCopy(servicedesc, 'optech-port1-lm : Optech Port1 License Manager')
  3465.     CASE 2238
  3466.         StrCopy(servicedesc, 'aviva-sna : AVIVA SNA SERVER')
  3467.     CASE 2239
  3468.         StrCopy(servicedesc, 'imagequery : Image Query')
  3469.     CASE 2240
  3470.         StrCopy(servicedesc, 'recipe : RECIPe')
  3471.     CASE 2241
  3472.         StrCopy(servicedesc, 'ivsd : IVS Daemon')
  3473.     CASE 2242
  3474.         StrCopy(servicedesc, 'foliocorp : Folio Remote Server')
  3475.     CASE 2243
  3476.         StrCopy(servicedesc, 'magicom : Magicom Protocol')
  3477.     CASE 2244
  3478.         StrCopy(servicedesc, 'nmsserver : NMS Server')
  3479.     CASE 2245
  3480.         StrCopy(servicedesc, 'hao : HaO')
  3481.     CASE 2250
  3482.         StrCopy(servicedesc, 'remote-collab : remote-collab')
  3483.     CASE 2255
  3484.         StrCopy(servicedesc, 'vrtp : VRTP - ViRtue Transfer Protocol')
  3485.     CASE 2279
  3486.         StrCopy(servicedesc, 'xmquery : xmquery')
  3487.     CASE 2280
  3488.         StrCopy(servicedesc, 'lnvpoller : LNVPOLLER')
  3489.     CASE 2281
  3490.         StrCopy(servicedesc, 'lnvconsole : LNVCONSOLE')
  3491.     CASE 2282
  3492.         StrCopy(servicedesc, 'lnvalarm : LNVALARM')
  3493.     CASE 2283
  3494.         StrCopy(servicedesc, 'lnvstatus : LNVSTATUS ; \eb[TROJANS=HVL Rat 5]\en')
  3495.     CASE 2284
  3496.         StrCopy(servicedesc, 'lnvmaps : LNVMAPS')
  3497.     CASE 2285
  3498.         StrCopy(servicedesc, 'lnvmailmon : LNVMAILMON')
  3499.     CASE 2286
  3500.         StrCopy(servicedesc, 'nas-metering : NAS-Metering')
  3501.     CASE 2287
  3502.         StrCopy(servicedesc, 'dna : DNA')
  3503.     CASE 2288
  3504.         StrCopy(servicedesc, 'netml : NETML')
  3505.     CASE 2294
  3506.         StrCopy(servicedesc, 'konshus-lm : Konshus License Manager (FLEX)')
  3507.     CASE 2295
  3508.         StrCopy(servicedesc, 'advant-lm : Advant License Manager')
  3509.     CASE 2296
  3510.         StrCopy(servicedesc, 'theta-lm : Theta License Manager (Rainbow)')
  3511.     CASE 2297
  3512.         StrCopy(servicedesc, 'd2k-datamover1 : D2K DataMover 1')
  3513.     CASE 2298
  3514.         StrCopy(servicedesc, 'd2k-datamover2 : D2K DataMover 2')
  3515.     CASE 2299
  3516.         StrCopy(servicedesc, 'pc-telecommute : PC Telecommute')
  3517.     CASE 2300
  3518.         StrCopy(servicedesc, 'cvmmon : CVMMON')
  3519.     CASE 2301
  3520.         StrCopy(servicedesc, 'cpq-wbem compaqdiag : Compaq HTTP ; Compaq Remote Diagnostic')
  3521.     CASE 2302
  3522.         StrCopy(servicedesc, 'binderysupport : Bindery Support')
  3523.     CASE 2303
  3524.         StrCopy(servicedesc, 'proxy-gateway : Proxy Gateway')
  3525.     CASE 2304
  3526.         StrCopy(servicedesc, 'attachmate-uts : Attachmate UTS')
  3527.     CASE 2305
  3528.         StrCopy(servicedesc, 'mt-scaleserver : MT ScaleServer')
  3529.     CASE 2306
  3530.         StrCopy(servicedesc, 'tappi-boxnet : TAPPI BoxNet')
  3531.     CASE 2307
  3532.         StrCopy(servicedesc, 'pehelp : pehelp')
  3533.     CASE 2308
  3534.         StrCopy(servicedesc, 'sdhelp : sdhelp')
  3535.     CASE 2309
  3536.         StrCopy(servicedesc, 'sdserver : SD Server')
  3537.     CASE 2310
  3538.         StrCopy(servicedesc, 'sdclient : SD Client')
  3539.     CASE 2311
  3540.         StrCopy(servicedesc, 'messageservice : Message Service')
  3541.     CASE 2313
  3542.         StrCopy(servicedesc, 'iapp : IAPP (Inter Access Point Protocol)')
  3543.     CASE 2314
  3544.         StrCopy(servicedesc, 'cr-websystems : CR WebSystems')
  3545.     CASE 2315
  3546.         StrCopy(servicedesc, 'precise-sft : Precise Sft.')
  3547.     CASE 2316
  3548.         StrCopy(servicedesc, 'sent-lm : SENT License Manager')
  3549.     CASE 2317
  3550.         StrCopy(servicedesc, 'attachmate-g32 : Attachmate G32')
  3551.     CASE 2318
  3552.         StrCopy(servicedesc, 'cadencecontrol : Cadence Control')
  3553.     CASE 2319
  3554.         StrCopy(servicedesc, 'infolibria : InfoLibria')
  3555.     CASE 2320
  3556.         StrCopy(servicedesc, 'siebel-ns : Siebel NS')
  3557.     CASE 2321
  3558.         StrCopy(servicedesc, 'rdlap : RDLAP over UDP')
  3559.     CASE 2322
  3560.         StrCopy(servicedesc, 'ofsd : ofsd')
  3561.     CASE 2323
  3562.         StrCopy(servicedesc, '3d-nfsd : 3d-nfsd')
  3563.     CASE 2324
  3564.         StrCopy(servicedesc, 'cosmocall : Cosmocall')
  3565.     CASE 2325
  3566.         StrCopy(servicedesc, 'designspace-lm : Design Space License Management')
  3567.     CASE 2326
  3568.         StrCopy(servicedesc, 'idcp : IDCP')
  3569.     CASE 2327
  3570.         StrCopy(servicedesc, 'xingcsm : xingcsm')
  3571.     CASE 2328
  3572.         StrCopy(servicedesc, 'netrix-sftm : Netrix SFTM')
  3573.     CASE 2329
  3574.         StrCopy(servicedesc, 'nvd : NVD')
  3575.     CASE 2330
  3576.         StrCopy(servicedesc, 'tscchat : TSCCHAT')
  3577.     CASE 2331
  3578.         StrCopy(servicedesc, 'agentview : AGENTVIEW')
  3579.     CASE 2332
  3580.         StrCopy(servicedesc, 'rcc-host : RCC Host')
  3581.     CASE 2333
  3582.         StrCopy(servicedesc, 'snapp : SNAPP')
  3583.     CASE 2334
  3584.         StrCopy(servicedesc, 'ace-client : ACE Client Auth')
  3585.     CASE 2335
  3586.         StrCopy(servicedesc, 'ace-proxy : ACE Proxy')
  3587.     CASE 2336
  3588.         StrCopy(servicedesc, 'appleugcontrol : Apple UG Control')
  3589.     CASE 2337
  3590.         StrCopy(servicedesc, 'ideesrv : ideesrv')
  3591.     CASE 2338
  3592.         StrCopy(servicedesc, 'norton-lambert : Norton Lambert')
  3593.     CASE 2339
  3594.         StrCopy(servicedesc, '3com-webview : 3Com WebView')
  3595.     CASE 2340
  3596.         StrCopy(servicedesc, 'wrs_registry : WRS Registry')
  3597.     CASE 2341
  3598.         StrCopy(servicedesc, 'xiostatus : XIO Status')
  3599.     CASE 2342
  3600.         StrCopy(servicedesc, 'manage-exec : Seagate Manage Exec')
  3601.     CASE 2343
  3602.         StrCopy(servicedesc, 'nati-logos : nati logos')
  3603.     CASE 2344
  3604.         StrCopy(servicedesc, 'fcmsys : fcmsys')
  3605.     CASE 2345
  3606.         StrCopy(servicedesc, 'dbm : dbm')
  3607.     CASE 2346
  3608.         StrCopy(servicedesc, 'redstorm_join : Game Connection Port')
  3609.     CASE 2347
  3610.         StrCopy(servicedesc, 'redstorm_find : Game Announcement and Location')
  3611.     CASE 2348
  3612.         StrCopy(servicedesc, 'redstorm_info : Information to query for game status')
  3613.     CASE 2349
  3614.         StrCopy(servicedesc, 'redstorm_diag : Diagnostics Port')
  3615.     CASE 2350
  3616.         StrCopy(servicedesc, 'psbserver : psbserver')
  3617.     CASE 2351
  3618.         StrCopy(servicedesc, 'psrserver : psrserver')
  3619.     CASE 2352
  3620.         StrCopy(servicedesc, 'pslserver : pslserver')
  3621.     CASE 2353
  3622.         StrCopy(servicedesc, 'pspserver : pspserver')
  3623.     CASE 2354
  3624.         StrCopy(servicedesc, 'psprserver : psprserver')
  3625.     CASE 2355
  3626.         StrCopy(servicedesc, 'psdbserver : psdbserver')
  3627.     CASE 2356
  3628.         StrCopy(servicedesc, 'gxtelmd : GXT License Managemant')
  3629.     CASE 2357
  3630.         StrCopy(servicedesc, 'unihub-server : UniHub Server')
  3631.     CASE 2358
  3632.         StrCopy(servicedesc, 'futrix : Futrix')
  3633.     CASE 2359
  3634.         StrCopy(servicedesc, 'flukeserver : FlukeServer')
  3635.     CASE 2360
  3636.         StrCopy(servicedesc, 'nexstorindltd : NexstorIndLtd')
  3637.     CASE 2361
  3638.         StrCopy(servicedesc, 'tl1 : TL1')
  3639.     CASE 2362
  3640.         StrCopy(servicedesc, 'digiman : digiman')
  3641.     CASE 2363
  3642.         StrCopy(servicedesc, 'mediacntrlnfsd : Media Central NFSD')
  3643.     CASE 2364
  3644.         StrCopy(servicedesc, 'oi-2000 : OI-2000')
  3645.     CASE 2365
  3646.         StrCopy(servicedesc, 'dbref : dbref')
  3647.     CASE 2366
  3648.         StrCopy(servicedesc, 'qip-login : qip-login')
  3649.     CASE 2367
  3650.         StrCopy(servicedesc, 'service-ctrl : Service Control')
  3651.     CASE 2368
  3652.         StrCopy(servicedesc, 'opentable : OpenTable')
  3653.     CASE 2369
  3654.         StrCopy(servicedesc, 'acs2000-dsp : ACS2000 DSP')
  3655.     CASE 2370
  3656.         StrCopy(servicedesc, 'l3-hbmon : L3-HBMon')
  3657.     CASE 2381
  3658.         StrCopy(servicedesc, 'compaq-https : Compaq HTTPS')
  3659.     CASE 2382
  3660.         StrCopy(servicedesc, 'ms-olap3 : Microsoft OLAP')
  3661.     CASE 2383
  3662.         StrCopy(servicedesc, 'ms-olap4 : Microsoft OLAP')
  3663.     CASE 2384
  3664.         StrCopy(servicedesc, 'sd-request : SD-REQUEST')
  3665.     CASE 2389
  3666.         StrCopy(servicedesc, 'ovsessionmgr : OpenView Session Mgr')
  3667.     CASE 2390
  3668.         StrCopy(servicedesc, 'rsmtp : RSMTP')
  3669.     CASE 2391
  3670.         StrCopy(servicedesc, '3com-net-mgmt : 3COM Net Management')
  3671.     CASE 2392
  3672.         StrCopy(servicedesc, 'tacticalauth : Tactical Auth')
  3673.     CASE 2393
  3674.         StrCopy(servicedesc, 'ms-olap1 : MS OLAP 1')
  3675.     CASE 2394
  3676.         StrCopy(servicedesc, 'ms-olap2 : MS OLAP 2')
  3677.     CASE 2395
  3678.         StrCopy(servicedesc, 'lan900_remote : LAN900 Remote')
  3679.     CASE 2396
  3680.         StrCopy(servicedesc, 'wusage : Wusage')
  3681.     CASE 2397
  3682.         StrCopy(servicedesc, 'ncl : NCL')
  3683.     CASE 2398
  3684.         StrCopy(servicedesc, 'orbiter : Orbiter')
  3685.     CASE 2399
  3686.         StrCopy(servicedesc, 'fmpro-fdal : FileMaker, Inc. - Data Access Layer')
  3687.     CASE 2400
  3688.         StrCopy(servicedesc, 'opequus-server : OpEquus Server')
  3689.     CASE 2401
  3690.         StrCopy(servicedesc, 'cvspserver : Control Version System Client/Server Operations')
  3691.     CASE 2402
  3692.         StrCopy(servicedesc, 'taskmaster2000 : TaskMaster 2000 Server')
  3693.     CASE 2403
  3694.         StrCopy(servicedesc, 'taskmaster2000 : TaskMaster 2000 Web')
  3695.     CASE 2404
  3696.         StrCopy(servicedesc, 'iec870-5-104 : IEC870-5-104')
  3697.     CASE 2405
  3698.         StrCopy(servicedesc, 'trc-netpoll : TRC Netpoll')
  3699.     CASE 2406
  3700.         StrCopy(servicedesc, 'jediserver : JediServer')
  3701.     CASE 2407
  3702.         StrCopy(servicedesc, 'orion : Orion')
  3703.     CASE 2408
  3704.         StrCopy(servicedesc, 'optimanet : OptimaNet')
  3705.     CASE 2409
  3706.         StrCopy(servicedesc, 'sns-protocol : SNS Protocol')
  3707.     CASE 2410
  3708.         StrCopy(servicedesc, 'vrts-registry : VRTS Registry')
  3709.     CASE 2411
  3710.         StrCopy(servicedesc, 'netwave-ap-mgmt : Netwave AP Management')
  3711.     CASE 2412
  3712.         StrCopy(servicedesc, 'cdn : CDN')
  3713.     CASE 2413
  3714.         StrCopy(servicedesc, 'orion-rmi-reg : orion-rmi-reg')
  3715.     CASE 2414
  3716.         StrCopy(servicedesc, 'beeyond : Beeyond')
  3717.     CASE 2415
  3718.         StrCopy(servicedesc, 'comtest : COMTEST')
  3719.     CASE 2416
  3720.         StrCopy(servicedesc, 'rmtserver : RMT Server')
  3721.     CASE 2417
  3722.         StrCopy(servicedesc, 'composit-server : Composit Server')
  3723.     CASE 2418
  3724.         StrCopy(servicedesc, 'cas : cas')
  3725.     CASE 2419
  3726.         StrCopy(servicedesc, 'attachmate-s2s : Attachmate S2S')
  3727.     CASE 2420
  3728.         StrCopy(servicedesc, 'dslremote-mgmt : DSL Remote Management')
  3729.     CASE 2421
  3730.         StrCopy(servicedesc, 'g-talk : G-Talk')
  3731.     CASE 2422
  3732.         StrCopy(servicedesc, 'crmsbits : CRMSBITS')
  3733.     CASE 2423
  3734.         StrCopy(servicedesc, 'rnrp : RNRP')
  3735.     CASE 2424
  3736.         StrCopy(servicedesc, 'kofax-svr : KOFAX-SVR')
  3737.     CASE 2425
  3738.         StrCopy(servicedesc, 'fjitsuappmgr : Fujitsu App Manager')
  3739.     CASE 2426
  3740.         StrCopy(servicedesc, 'applianttcp : Appliant TCP')
  3741.     CASE 2427
  3742.         StrCopy(servicedesc, 'mgcp-gateway : Media Gateway Control Protocol Gateway')
  3743.     CASE 2428
  3744.         StrCopy(servicedesc, 'ott : One Way Trip Time')
  3745.     CASE 2429
  3746.         StrCopy(servicedesc, 'ft-role : FT-ROLE')
  3747.     CASE 2430
  3748.         StrCopy(servicedesc, 'venus : Venus callback/wbc interface')
  3749.     CASE 2431
  3750.         StrCopy(servicedesc, 'venus-se : Vencus TCP Side Effects')
  3751.     CASE 2432
  3752.         StrCopy(servicedesc, 'codasrv : codasrv')
  3753.     CASE 2433
  3754.         StrCopy(servicedesc, 'codasrv-se : Codasrv TCP Side Effects')
  3755.     CASE 2434
  3756.         StrCopy(servicedesc, 'pxc-epmap : pxc-epmap')
  3757.     CASE 2435
  3758.         StrCopy(servicedesc, 'optilogic : OptiLogic')
  3759.     CASE 2436
  3760.         StrCopy(servicedesc, 'topx : TOP/X')
  3761.     CASE 2437
  3762.         StrCopy(servicedesc, 'unicontrol : UniControl')
  3763.     CASE 2438
  3764.         StrCopy(servicedesc, 'msp : MSP')
  3765.     CASE 2439
  3766.         StrCopy(servicedesc, 'sybasedbsynch : SybaseDBSynch')
  3767.     CASE 2440
  3768.         StrCopy(servicedesc, 'spearway : Spearway Lockers')
  3769.     CASE 2441
  3770.         StrCopy(servicedesc, 'pvsw-inet : pvsw-inet')
  3771.     CASE 2442
  3772.         StrCopy(servicedesc, 'netangel : Netangel')
  3773.     CASE 2443
  3774.         StrCopy(servicedesc, 'powerclientcsf : PowerClient Central Storage Facility')
  3775.     CASE 2444
  3776.         StrCopy(servicedesc, 'btpp2sectrans : BT PP2 Sectrans')
  3777.     CASE 2445
  3778.         StrCopy(servicedesc, 'dtn1 : DTN1')
  3779.     CASE 2446
  3780.         StrCopy(servicedesc, 'bues_service : bues_service')
  3781.     CASE 2447
  3782.         StrCopy(servicedesc, 'ovwdb : OpenView NNM daemon')
  3783.     CASE 2448
  3784.         StrCopy(servicedesc, 'hpppssvr : hpppsvr')
  3785.     CASE 2449
  3786.         StrCopy(servicedesc, 'ratl : RATL')
  3787.     CASE 2450
  3788.         StrCopy(servicedesc, 'netadmin : netadmin')
  3789.     CASE 2451
  3790.         StrCopy(servicedesc, 'netchat : netchat')
  3791.     CASE 2452
  3792.         StrCopy(servicedesc, 'snifferclient : SnifferClient')
  3793.     CASE 2453
  3794.         StrCopy(servicedesc, 'madge-om : madge-om')
  3795.     CASE 2454
  3796.         StrCopy(servicedesc, 'indx-dds : IndX-DDS')
  3797.     CASE 2455
  3798.         StrCopy(servicedesc, 'wago-io-system : WAGO-IO-SYSTEM')
  3799.     CASE 2456
  3800.         StrCopy(servicedesc, 'altav-remmgt : altav-remmgt')
  3801.     CASE 2457
  3802.         StrCopy(servicedesc, 'rapido-ip : Rapido_IP')
  3803.     CASE 2458
  3804.         StrCopy(servicedesc, 'griffin : griffin')
  3805.     CASE 2459
  3806.         StrCopy(servicedesc, 'community : Community')
  3807.     CASE 2460
  3808.         StrCopy(servicedesc, 'ms-theater : ms-theater')
  3809.     CASE 2461
  3810.         StrCopy(servicedesc, 'qadmifoper : qadmifoper')
  3811.     CASE 2462
  3812.         StrCopy(servicedesc, 'qadmifevent : qadmifevent')
  3813.     CASE 2463
  3814.         StrCopy(servicedesc, 'symbios-raid : Symbios Raid')
  3815.     CASE 2464
  3816.         StrCopy(servicedesc, 'direcpc-si : DirecPC SI')
  3817.     CASE 2465
  3818.         StrCopy(servicedesc, 'lbm : Load Balance Management')
  3819.     CASE 2466
  3820.         StrCopy(servicedesc, 'lbf : Load Balance Forwarding')
  3821.     CASE 2467
  3822.         StrCopy(servicedesc, 'high-criteria : High Criteria')
  3823.     CASE 2468
  3824.         StrCopy(servicedesc, 'qip-msgd : qip_msgd')
  3825.     CASE 2469
  3826.         StrCopy(servicedesc, 'mti-tcs-comm : MTI-TCS-COMM')
  3827.     CASE 2470
  3828.         StrCopy(servicedesc, 'taskman-port : taskman port')
  3829.     CASE 2471
  3830.         StrCopy(servicedesc, 'seaodbc : SeaODBC')
  3831.     CASE 2472
  3832.         StrCopy(servicedesc, 'c3 : C3')
  3833.     CASE 2473
  3834.         StrCopy(servicedesc, 'aker-cdp : Aker-cdp')
  3835.     CASE 2474
  3836.         StrCopy(servicedesc, 'vitalanalysis : Vital Analysis')
  3837.     CASE 2475
  3838.         StrCopy(servicedesc, 'ace-server : ACE Server')
  3839.     CASE 2476
  3840.         StrCopy(servicedesc, 'ace-svr-prop : ACE Server Propagation')
  3841.     CASE 2477
  3842.         StrCopy(servicedesc, 'ssm-cvs : SecurSight Certificate Valifation Service')
  3843.     CASE 2478
  3844.         StrCopy(servicedesc, 'ssm-cssps : SecurSight Authentication Server (SLL)')
  3845.     CASE 2479
  3846.         StrCopy(servicedesc, 'ssm-els : SecurSight Event Logging Server (SSL)')
  3847.     CASE 2480
  3848.         StrCopy(servicedesc, 'lingwood : Lingwoods Detail')
  3849.     CASE 2481
  3850.         StrCopy(servicedesc, 'giop : Oracle GIOP')
  3851.     CASE 2482
  3852.         StrCopy(servicedesc, 'giop-ssl : Oracle GIOP SSL')
  3853.     CASE 2483
  3854.         StrCopy(servicedesc, 'ttc : Oracle TTC')
  3855.     CASE 2484
  3856.         StrCopy(servicedesc, 'ttc-ssl : Oracle TTC SSL')
  3857.     CASE 2485
  3858.         StrCopy(servicedesc, 'netobjects1 : Net Objects1')
  3859.     CASE 2486
  3860.         StrCopy(servicedesc, 'netobjects2 : Net Objects2')
  3861.     CASE 2487
  3862.         StrCopy(servicedesc, 'pns : Policy Notice Service')
  3863.     CASE 2488
  3864.         StrCopy(servicedesc, 'moy-corp : Moy Corporation')
  3865.     CASE 2489
  3866.         StrCopy(servicedesc, 'tsilb : TSILB')
  3867.     CASE 2490
  3868.         StrCopy(servicedesc, 'qip-qdhcp : qip_qdhcp')
  3869.     CASE 2491
  3870.         StrCopy(servicedesc, 'conclave-cpp : Conclave CPP')
  3871.     CASE 2492
  3872.         StrCopy(servicedesc, 'groove : GROOVE')
  3873.     CASE 2493
  3874.         StrCopy(servicedesc, 'talarian-mqs : Talarian MQS')
  3875.     CASE 2494
  3876.         StrCopy(servicedesc, 'bmc-ar : BMC AR')
  3877.     CASE 2495
  3878.         StrCopy(servicedesc, 'fast-rem-serv : Fast Remote Services')
  3879.     CASE 2496
  3880.         StrCopy(servicedesc, 'dirgis : DIRGIS')
  3881.     CASE 2497
  3882.         StrCopy(servicedesc, 'quaddb : Quad DB')
  3883.     CASE 2498
  3884.         StrCopy(servicedesc, 'odn-castraq : ODN-CasTraq')
  3885.     CASE 2499
  3886.         StrCopy(servicedesc, 'unicontrol : UniControl')
  3887.     CASE 2500
  3888.         StrCopy(servicedesc, 'rtsserv : Resource Tracking system server ; Freeware Amiga Network Filesystem')
  3889.     CASE 2501
  3890.         StrCopy(servicedesc, 'rtsclient : Resource Tracking system client')
  3891.     CASE 2502
  3892.         StrCopy(servicedesc, 'kentrox-prot : Kentrox Protocol')
  3893.     CASE 2503
  3894.         StrCopy(servicedesc, 'nms-dpnss : NMS-DPNSS')
  3895.     CASE 2504
  3896.         StrCopy(servicedesc, 'wlbs : WLBS ')
  3897.     CASE 2505
  3898.         StrCopy(servicedesc, 'torque-traffic : torque-traffic')
  3899.     CASE 2506
  3900.         StrCopy(servicedesc, 'jbroker : jbroker')
  3901.     CASE 2507
  3902.         StrCopy(servicedesc, 'spock : spock')
  3903.     CASE 2508
  3904.         StrCopy(servicedesc, 'jdatastore : JDataStore')
  3905.     CASE 2509
  3906.         StrCopy(servicedesc, 'fjmpss : fjmpss')
  3907.     CASE 2510
  3908.         StrCopy(servicedesc, 'fjappmgrbulk : fjappmgrbulk')
  3909.     CASE 2511
  3910.         StrCopy(servicedesc, 'metastorm : Metastorm')
  3911.     CASE 2512
  3912.         StrCopy(servicedesc, 'citrixima : Citrix IMA')
  3913.     CASE 2513
  3914.         StrCopy(servicedesc, 'citrixadmin : Citrix ADMIN')
  3915.     CASE 2514
  3916.         StrCopy(servicedesc, 'facsys-ntp : Facsys NTP')
  3917.     CASE 2515
  3918.         StrCopy(servicedesc, 'facsys-router : Facsys Router')
  3919.     CASE 2516
  3920.         StrCopy(servicedesc, 'maincontrol : Main Control')
  3921.     CASE 2517
  3922.         StrCopy(servicedesc, 'call-sig-trans : H.323 Annex E call signaling transport')
  3923.     CASE 2518
  3924.         StrCopy(servicedesc, 'willy : Willy')
  3925.     CASE 2519
  3926.         StrCopy(servicedesc, 'globmsgsvc : globmsgsvc')
  3927.     CASE 2520
  3928.         StrCopy(servicedesc, 'pvsw : pvsw')
  3929.     CASE 2521
  3930.         StrCopy(servicedesc, 'adaptecmgr : Adaptec Manager')
  3931.     CASE 2522
  3932.         StrCopy(servicedesc, 'windb : WinDb')
  3933.     CASE 2523
  3934.         StrCopy(servicedesc, 'qke-llc-v3 : Qke LLC V.3')
  3935.     CASE 2524
  3936.         StrCopy(servicedesc, 'optiwave-lm : Optiwave License Management')
  3937.     CASE 2525
  3938.         StrCopy(servicedesc, 'ms-v-worlds : MS V-Worlds ')
  3939.     CASE 2526
  3940.         StrCopy(servicedesc, 'ema-sent-lm : EMA License Manager')
  3941.     CASE 2527
  3942.         StrCopy(servicedesc, 'iqserver : IQ Server')
  3943.     CASE 2528
  3944.         StrCopy(servicedesc, 'ncr_ccl : NCR CCL')
  3945.     CASE 2529
  3946.         StrCopy(servicedesc, 'utsftp : UTS FTP')
  3947.     CASE 2530
  3948.         StrCopy(servicedesc, 'vrcommerce : VR Commerce')
  3949.     CASE 2531
  3950.         StrCopy(servicedesc, 'ito-e-gui : ITO-E GUI')
  3951.     CASE 2532
  3952.         StrCopy(servicedesc, 'ovtopmd : OVTOPMD')
  3953.     CASE 2533
  3954.         StrCopy(servicedesc, 'snifferserver : SnifferServer')
  3955.     CASE 2534
  3956.         StrCopy(servicedesc, 'combox-web-acc : Combox Web Access')
  3957.     CASE 2535
  3958.         StrCopy(servicedesc, 'madcap : MADCAP')
  3959.     CASE 2536
  3960.         StrCopy(servicedesc, 'btpp2audctr1 : btpp2audctr1')
  3961.     CASE 2537
  3962.         StrCopy(servicedesc, 'upgrade : Upgrade Protocol')
  3963.     CASE 2538
  3964.         StrCopy(servicedesc, 'vnwk-prapi : vnwk-prapi')
  3965.     CASE 2539
  3966.         StrCopy(servicedesc, 'vsiadmin : VSI Admin')
  3967.     CASE 2540
  3968.         StrCopy(servicedesc, 'lonworks : LonWorks')
  3969.     CASE 2541
  3970.         StrCopy(servicedesc, 'lonworks2 : LonWorks2')
  3971.     CASE 2542
  3972.         StrCopy(servicedesc, 'davinci : daVinci')
  3973.     CASE 2543
  3974.         StrCopy(servicedesc, 'reftek : REFTEK')
  3975.     CASE 2544
  3976.         StrCopy(servicedesc, 'novell-zen : Novell ZEN')
  3977.     CASE 2544
  3978.         StrCopy(servicedesc, 'novell-zen : Novell ZEN')
  3979.     CASE 2545
  3980.         StrCopy(servicedesc, 'sis-emt : sis-emt')
  3981.     CASE 2546
  3982.         StrCopy(servicedesc, 'vytalvaultbrtp : vytalvaultbrtp')
  3983.     CASE 2547
  3984.         StrCopy(servicedesc, 'vytalvaultvsmp : vytalvaultvsmp')
  3985.     CASE 2548
  3986.         StrCopy(servicedesc, 'vytalvaultpipe : vytalvaultpipe')
  3987.     CASE 2549
  3988.         StrCopy(servicedesc, 'ipass : IPASS')
  3989.     CASE 2550
  3990.         StrCopy(servicedesc, 'ads : ADS')
  3991.     CASE 2551
  3992.         StrCopy(servicedesc, 'isg-uda-server : ISG UDA Server')
  3993.     CASE 2552
  3994.         StrCopy(servicedesc, 'call-logging : Call Logging')
  3995.     CASE 2553
  3996.         StrCopy(servicedesc, 'efidiningport : efidiningport')
  3997.     CASE 2554
  3998.         StrCopy(servicedesc, 'vcnet-link-v10 : VCnet-Link v10')
  3999.     CASE 2555
  4000.         StrCopy(servicedesc, 'compaq-wcp : Compaq WCP')
  4001.     CASE 2556
  4002.         StrCopy(servicedesc, 'nicetec-nmsvc : nicetec-nmsvc')
  4003.     CASE 2557
  4004.         StrCopy(servicedesc, 'nicetec-mgmt : nicetec-mgmt')
  4005.     CASE 2558
  4006.         StrCopy(servicedesc, 'pclemultimedia : PCLE Multi Media')
  4007.     CASE 2559
  4008.         StrCopy(servicedesc, 'lstp : LSTP')
  4009.     CASE 2560
  4010.         StrCopy(servicedesc, 'labrat : labrat')
  4011.     CASE 2561
  4012.         StrCopy(servicedesc, 'mosaixcc : MosaixCC')
  4013.     CASE 2562
  4014.         StrCopy(servicedesc, 'delibo : Delibo')
  4015.     CASE 2563
  4016.         StrCopy(servicedesc, 'cti-redwood : CTI Redwood')
  4017.     CASE 2564
  4018.         StrCopy(servicedesc, 'hp-3000-telnet : HP 3000 NS/VT block mode telnet')
  4019.     CASE 2565
  4020.         StrCopy(servicedesc, 'coord-svr : Coordinator Server ; \eb[TROJANS=Striker]\en')
  4021.     CASE 2566
  4022.         StrCopy(servicedesc, 'pcs-pcw : pcs-pcw')
  4023.     CASE 2567
  4024.         StrCopy(servicedesc, 'clp : Cisco Line Protocol')
  4025.     CASE 2568
  4026.         StrCopy(servicedesc, 'spamtrap : SPAM TRAP')
  4027.     CASE 2569
  4028.         StrCopy(servicedesc, 'sonuscallsig : Sonus Call Signal')
  4029.     CASE 2570
  4030.         StrCopy(servicedesc, 'hs-port : HS Port')
  4031.     CASE 2571
  4032.         StrCopy(servicedesc, 'cecsvc : CECSVC')
  4033.     CASE 2572
  4034.         StrCopy(servicedesc, 'ibp : IBP')
  4035.     CASE 2573
  4036.         StrCopy(servicedesc, 'trustestablish : Trust Establish')
  4037.     CASE 2574
  4038.         StrCopy(servicedesc, 'blockade-bpsp : Blockade BPSP')
  4039.     CASE 2575
  4040.         StrCopy(servicedesc, 'hl7 : HL7')
  4041.     CASE 2576
  4042.         StrCopy(servicedesc, 'tclprodebugger : TCL Pro Debugger')
  4043.     CASE 2577
  4044.         StrCopy(servicedesc, 'scipticslsrvr : Scriptics Lsrvr')
  4045.     CASE 2578
  4046.         StrCopy(servicedesc, 'rvs-isdn-dcp : RVS ISDN DCP')
  4047.     CASE 2579
  4048.         StrCopy(servicedesc, 'mpfoncl : mpfoncl')
  4049.     CASE 2580
  4050.         StrCopy(servicedesc, 'tributary : Tributary')
  4051.     CASE 2581
  4052.         StrCopy(servicedesc, 'argis-te : ARGIS TE')
  4053.     CASE 2582
  4054.         StrCopy(servicedesc, 'argis-ds : ARGIS DS')
  4055.     CASE 2583
  4056.         StrCopy(servicedesc, 'mon : MON ; \eb[TROJANS=Win Crash]\en')
  4057.     CASE 2584
  4058.         StrCopy(servicedesc, 'cyaserv : cyaserv')
  4059.     CASE 2585
  4060.         StrCopy(servicedesc, 'netx-server : NETX Server')
  4061.     CASE 2586
  4062.         StrCopy(servicedesc, 'netx-agent : NETX Agent')
  4063.     CASE 2587
  4064.         StrCopy(servicedesc, 'masc : MASC')
  4065.     CASE 2588
  4066.         StrCopy(servicedesc, 'privilege : Privilege')
  4067.     CASE 2589
  4068.         StrCopy(servicedesc, 'quartus-tcl : quartus tcl')
  4069.     CASE 2590
  4070.         StrCopy(servicedesc, 'idotdist : idotdist')
  4071.     CASE 2591
  4072.         StrCopy(servicedesc, 'maytagshuffle : Maytag Shuffle')
  4073.     CASE 2592
  4074.         StrCopy(servicedesc, 'netrek : netrek')
  4075.     CASE 2593
  4076.         StrCopy(servicedesc, 'mns-mail : MNS Mail Notice Service')
  4077.     CASE 2594
  4078.         StrCopy(servicedesc, 'dts : Data Base Server')
  4079.     CASE 2595
  4080.         StrCopy(servicedesc, 'worldfusion1 : World Fusion 1')
  4081.     CASE 2596
  4082.         StrCopy(servicedesc, 'worldfusion2 : World Fusion 2')
  4083.     CASE 2597
  4084.         StrCopy(servicedesc, 'homesteadglory : Homestead Glory')
  4085.     CASE 2598
  4086.         StrCopy(servicedesc, 'citriximaclient : Citrix MA Client')
  4087.     CASE 2599
  4088.         StrCopy(servicedesc, 'meridiandata : Meridian Data')
  4089.     CASE 2600
  4090.         StrCopy(servicedesc, 'hpstgmgr zebrasrv : HPSTGMGR ; Zebra Service ; \eb[TROJANS=Digital RootBeer]\en')
  4091.  
  4092.  
  4093.     DEFAULT
  4094.         StrCopy(servicedesc, 'UNKNOWN')
  4095. ENDSELECT
  4096. ENDPROC
  4097.  
  4098.  
  4099.  
  4100.  
  4101. EXPORT PROC service10(portserv:LONG)
  4102.  
  4103. SELECT portserv
  4104.     CASE 2601
  4105.         StrCopy(servicedesc, 'discp-client zebra : discp client ; Zebra VTY')
  4106.     CASE 2602
  4107.         StrCopy(servicedesc, 'discp-server ripd : discp server ; RIPd VTY')
  4108.     CASE 2603
  4109.         StrCopy(servicedesc, 'servicemeter ripngd : Service Meter ; RIPngd VTY')
  4110.     CASE 2604
  4111.         StrCopy(servicedesc, 'nsc-ccs ospfd : NSC CCS ; OFPFd VTY')
  4112.     CASE 2605
  4113.         StrCopy(servicedesc, 'nsc-posa bgpd : NSC POSA ; BGPd VTY')
  4114.     CASE 2606
  4115.         StrCopy(servicedesc, 'netmon : Dell Netmon')
  4116.     CASE 2607
  4117.         StrCopy(servicedesc, 'connection : Dell Connection')
  4118.     CASE 2608
  4119.         StrCopy(servicedesc, 'wag-service : Wag Service')
  4120.     CASE 2609
  4121.         StrCopy(servicedesc, 'system-monitor : System Monitor')
  4122.     CASE 2610
  4123.         StrCopy(servicedesc, 'versa-tek : VersaTek')
  4124.     CASE 2611
  4125.         StrCopy(servicedesc, 'lionhead : LIONHEAD')
  4126.     CASE 2612
  4127.         StrCopy(servicedesc, 'qpasa-agent : Qpasa Agent')
  4128.     CASE 2613
  4129.         StrCopy(servicedesc, 'smntubootstrap : SMNTUBootstrap')
  4130.     CASE 2614
  4131.         StrCopy(servicedesc, 'neveroffline : Never Offline')
  4132.     CASE 2615
  4133.         StrCopy(servicedesc, 'firepower : firepower')
  4134.     CASE 2616
  4135.         StrCopy(servicedesc, 'appswitch-emp : appswitch-emp')
  4136.     CASE 2617
  4137.         StrCopy(servicedesc, 'cmadmin : Clinical Context Managers')
  4138.     CASE 2618
  4139.         StrCopy(servicedesc, 'priority-e-com : Priority E-Com')
  4140.     CASE 2619
  4141.         StrCopy(servicedesc, 'bruce : bruce')
  4142.     CASE 2620
  4143.         StrCopy(servicedesc, 'lpsrecommender : LPSRecommender')
  4144.     CASE 2621
  4145.         StrCopy(servicedesc, 'miles-apart : Miles Apart Jukebox Server')
  4146.     CASE 2622
  4147.         StrCopy(servicedesc, 'metricadbc : MetricaDBC')
  4148.     CASE 2623
  4149.         StrCopy(servicedesc, 'lmdp : LMDP')
  4150.     CASE 2624
  4151.         StrCopy(servicedesc, 'aria : Aria')
  4152.     CASE 2625
  4153.         StrCopy(servicedesc, 'blwnkl-port : Blwnkl Port')
  4154.     CASE 2626
  4155.         StrCopy(servicedesc, 'gbjd816 : gbjd816')
  4156.     CASE 2627
  4157.         StrCopy(servicedesc, 'moshebeeri webster : Moshe Beeri ; Webster Networked Dictionary')
  4158.     CASE 2628
  4159.         StrCopy(servicedesc, 'dict : DICT')
  4160.     CASE 2629
  4161.         StrCopy(servicedesc, 'sitaraserver : Sitara Server')
  4162.     CASE 2630
  4163.         StrCopy(servicedesc, 'sitaramgmt : Sitara Management')
  4164.     CASE 2631
  4165.         StrCopy(servicedesc, 'sitaradir : Sitara Dir')
  4166.     CASE 2632
  4167.         StrCopy(servicedesc, 'irdg-post : IRdg Post')
  4168.     CASE 2633
  4169.         StrCopy(servicedesc, 'interintelli : InterIntelli')
  4170.     CASE 2634
  4171.         StrCopy(servicedesc, 'pk-electronics : PK Electronics')
  4172.     CASE 2635
  4173.         StrCopy(servicedesc, 'backburner : Back Burner')
  4174.     CASE 2636
  4175.         StrCopy(servicedesc, 'solve : Solve')
  4176.     CASE 2637
  4177.         StrCopy(servicedesc, 'imdocsvc : Import Document Service')
  4178.     CASE 2638
  4179.         StrCopy(servicedesc, 'sybaseanywhere : Sybase Anywhere Database')
  4180.     CASE 2639
  4181.         StrCopy(servicedesc, 'aminet : AMInet')
  4182.     CASE 2640
  4183.         StrCopy(servicedesc, 'sai_sentlm : Sabbagh Associates Licence Manager')
  4184.     CASE 2641
  4185.         StrCopy(servicedesc, 'hdl-srv : HDL Server')
  4186.     CASE 2642
  4187.         StrCopy(servicedesc, 'tragic : Tragic')
  4188.     CASE 2643
  4189.         StrCopy(servicedesc, 'gte-samp : GTE-SAMP')
  4190.     CASE 2644
  4191.         StrCopy(servicedesc, 'travsoft-ipx-t : Travsoft IPX Tunnel')
  4192.     CASE 2645
  4193.         StrCopy(servicedesc, 'novell-ipx-cmd : Novell IPX CMD')
  4194.     CASE 2646
  4195.         StrCopy(servicedesc, 'and-lm : AND Licence Manager')
  4196.     CASE 2647
  4197.         StrCopy(servicedesc, 'syncserver : SyncServer')
  4198.     CASE 2648
  4199.         StrCopy(servicedesc, 'upsnotifyprot : Upsnotifyprot')
  4200.     CASE 2649
  4201.         StrCopy(servicedesc, 'vpsipport : VPSIPPORT')
  4202.     CASE 2650
  4203.         StrCopy(servicedesc, 'eristwoguns : eristwoguns')
  4204.     CASE 2651
  4205.         StrCopy(servicedesc, 'ebinsite : EBInSite')
  4206.     CASE 2652
  4207.         StrCopy(servicedesc, 'interpathpanel : InterPathPanel')
  4208.     CASE 2653
  4209.         StrCopy(servicedesc, 'sonus : Sonus')
  4210.     CASE 2654
  4211.         StrCopy(servicedesc, 'corel_vncadmin : Corel VNC Admin')
  4212.     CASE 2655
  4213.         StrCopy(servicedesc, 'unglue : UNIX Nt Glue')
  4214.     CASE 2656
  4215.         StrCopy(servicedesc, 'kana : Kana')
  4216.     CASE 2657
  4217.         StrCopy(servicedesc, 'sns-dispatcher : SNS Dispatcher')
  4218.     CASE 2658
  4219.         StrCopy(servicedesc, 'sns-admin : SNS Admin')
  4220.     CASE 2659
  4221.         StrCopy(servicedesc, 'sns-query : SNS Query')
  4222.     CASE 2660
  4223.         StrCopy(servicedesc, 'gcmonitor : GC Monitor')
  4224.     CASE 2661
  4225.         StrCopy(servicedesc, 'olhost : OLHOST')
  4226.     CASE 2662
  4227.         StrCopy(servicedesc, 'bintec-capi : BinTec-CAPI')
  4228.     CASE 2663
  4229.         StrCopy(servicedesc, 'bintec-tapi : BinTec-TAPI')
  4230.     CASE 2664
  4231.         StrCopy(servicedesc, 'command-mq-gm : Command MQ GM')
  4232.     CASE 2665
  4233.         StrCopy(servicedesc, 'command-mq-pm : Command MQ PM')
  4234.     CASE 2666
  4235.         StrCopy(servicedesc, 'extensis : extensis')
  4236.     CASE 2667
  4237.         StrCopy(servicedesc, 'alarm-clock-s : Alarm Clock Server')
  4238.     CASE 2668
  4239.         StrCopy(servicedesc, 'alarm-clock-c : Alarm Clock Client')
  4240.     CASE 2669
  4241.         StrCopy(servicedesc, 'toad : TOAD')
  4242.     CASE 2670
  4243.         StrCopy(servicedesc, 'tve-announce : TVE Announce')
  4244.     CASE 2671
  4245.         StrCopy(servicedesc, 'newlixreg : newlixreg')
  4246.     CASE 2672
  4247.         StrCopy(servicedesc, 'nhserver : nhserver')
  4248.     CASE 2673
  4249.         StrCopy(servicedesc, 'firstcall42 : First Call 42')
  4250.     CASE 2674
  4251.         StrCopy(servicedesc, 'ewnn : ewnn')
  4252.     CASE 2675
  4253.         StrCopy(servicedesc, 'ttc-etap : TTC ETAP')
  4254.     CASE 2676
  4255.         StrCopy(servicedesc, 'simslink : SIMSLink')
  4256.     CASE 2677
  4257.         StrCopy(servicedesc, 'gadgetgate1way : Gadget Gate 1 Way')
  4258.     CASE 2678
  4259.         StrCopy(servicedesc, 'gadgetgate2way : Gadget Gate 2 Way')
  4260.     CASE 2679
  4261.         StrCopy(servicedesc, 'syncserverssl : Sync Server SSL')
  4262.     CASE 2680
  4263.         StrCopy(servicedesc, 'pxc-sapxom : pxc-sapxom')
  4264.     CASE 2681
  4265.         StrCopy(servicedesc, 'mpnjsomb : mpnjsomb')
  4266.     CASE 2682
  4267.         StrCopy(servicedesc, 'srsp : SRSP')
  4268.     CASE 2683
  4269.         StrCopy(servicedesc, 'ncdloadbalance : NCDLoadBalance')
  4270.     CASE 2684
  4271.         StrCopy(servicedesc, 'mpnjsosv : mpnjsosv')
  4272.     CASE 2685
  4273.         StrCopy(servicedesc, 'mpnjsocl : mpnjsocl')
  4274.     CASE 2686
  4275.         StrCopy(servicedesc, 'mpnjsomg : mpnjsomg')
  4276.     CASE 2687
  4277.         StrCopy(servicedesc, 'pq-lic-mgmt : pq-lic-mgmt')
  4278.     CASE 2688
  4279.         StrCopy(servicedesc, 'md-cg-http : md-cf-http')
  4280.     CASE 2689
  4281.         StrCopy(servicedesc, 'fastlynx : FastLynx')
  4282.     CASE 2690
  4283.         StrCopy(servicedesc, 'hp-nnm-data : HP NNM Embedded Database')
  4284.     CASE 2691
  4285.         StrCopy(servicedesc, 'itinternet : IT Internet')
  4286.     CASE 2692
  4287.         StrCopy(servicedesc, 'admins-lms : Admins LMS')
  4288.     CASE 2693
  4289.         StrCopy(servicedesc, 'belarc-http : belarc-http')
  4290.     CASE 2694
  4291.         StrCopy(servicedesc, 'pwrsevent : pwrsevent')
  4292.     CASE 2695
  4293.         StrCopy(servicedesc, 'vspread : VSPREAD')
  4294.     CASE 2696
  4295.         StrCopy(servicedesc, 'unifyadmin : Unify Admin')
  4296.     CASE 2697
  4297.         StrCopy(servicedesc, 'oce-snmp-trap : Oce SNMP Trap Port')
  4298.     CASE 2698
  4299.         StrCopy(servicedesc, 'mck-ivpip : MCK-IVPIP')
  4300.     CASE 2699
  4301.         StrCopy(servicedesc, 'csoft-plusclnt : Csoft Plus Client')
  4302.     CASE 2700
  4303.         StrCopy(servicedesc, 'tqdata : tqdata')
  4304.     CASE 2701
  4305.         StrCopy(servicedesc, 'sms-rcinfo : SMS RCINFO')
  4306.     CASE 2702
  4307.         StrCopy(servicedesc, 'sms-xfer : SMS XFER')
  4308.     CASE 2703
  4309.         StrCopy(servicedesc, 'sms-chat : SMS CHAT')
  4310.     CASE 2704
  4311.         StrCopy(servicedesc, 'sms-remctrl : SMS REMCTRL')
  4312.     CASE 2705
  4313.         StrCopy(servicedesc, 'sds-admin : SDS Admin')
  4314.     CASE 2706
  4315.         StrCopy(servicedesc, 'ncdmirroring : NCD Mirroring')
  4316.     CASE 2707
  4317.         StrCopy(servicedesc, 'emcsymapiport : EMCSYMAPIPORT')
  4318.     CASE 2708
  4319.         StrCopy(servicedesc, 'banyan-net : Banyan-Net')
  4320.     CASE 2709
  4321.         StrCopy(servicedesc, 'supermon : Supermon')
  4322.     CASE 2710
  4323.         StrCopy(servicedesc, 'sso-service : SSO Service')
  4324.     CASE 2711
  4325.         StrCopy(servicedesc, 'sso-control : SSO Control')
  4326.     CASE 2712
  4327.         StrCopy(servicedesc, 'aocp : Axapta Object Communication Protocol')
  4328.     CASE 2713
  4329.         StrCopy(servicedesc, 'raven1 : Raven1')
  4330.     CASE 2714
  4331.         StrCopy(servicedesc, 'raven2 : Raven2')
  4332.     CASE 2714
  4333.         StrCopy(servicedesc, 'raven2 : Raven2')
  4334.     CASE 2715
  4335.         StrCopy(servicedesc, 'hpstgmgr2 : HPSTGMGR2')
  4336.     CASE 2716
  4337.         StrCopy(servicedesc, 'inova-ip-disco : Inova IP Disco')
  4338.     CASE 2717
  4339.         StrCopy(servicedesc, 'pn-requester : PN REQUESTER')
  4340.     CASE 2718
  4341.         StrCopy(servicedesc, 'pn-requester2 : PN REQUESTER 2')
  4342.     CASE 2719
  4343.         StrCopy(servicedesc, 'scan-change : Scan & Change')
  4344.     CASE 2720
  4345.         StrCopy(servicedesc, 'wkars : wkars')
  4346.     CASE 2721
  4347.         StrCopy(servicedesc, 'smart-diagnose : Smart Diagnose')
  4348.     CASE 2722
  4349.         StrCopy(servicedesc, 'proactivesrvr : Proactive Server')
  4350.     CASE 2723
  4351.         StrCopy(servicedesc, 'watchdognt : WatchDog NT')
  4352.     CASE 2724
  4353.         StrCopy(servicedesc, 'qotps : qotps')
  4354.     CASE 2725
  4355.         StrCopy(servicedesc, 'msolap-ptp2 : MSOLAP PTP2')
  4356.     CASE 2726
  4357.         StrCopy(servicedesc, 'tams : TAMS')
  4358.     CASE 2727
  4359.         StrCopy(servicedesc, 'mgcp-callagent : Media Gateway Control Protocol Call Agent')
  4360.     CASE 2728
  4361.         StrCopy(servicedesc, 'sqdr : SQDR')
  4362.     CASE 2729
  4363.         StrCopy(servicedesc, 'tcim-control : TCIM Control')
  4364.     CASE 2730
  4365.         StrCopy(servicedesc, 'nec-raidplus : NEC RaidPlus')
  4366.     CASE 2731
  4367.         StrCopy(servicedesc, 'netdragon-msngr : NetDragon Messanger')
  4368.     CASE 2732
  4369.         StrCopy(servicedesc, 'g5m : G5M')
  4370.     CASE 2733
  4371.         StrCopy(servicedesc, 'signet-ctf : Signet CTF')
  4372.     CASE 2734
  4373.         StrCopy(servicedesc, 'ccs-software : CCS Software')
  4374.     CASE 2735
  4375.         StrCopy(servicedesc, 'netiq-mc : NetIQ Monitor Console')
  4376.     CASE 2736
  4377.         StrCopy(servicedesc, 'radwiz-nms-srv : RADWIZ NMS SRV')
  4378.     CASE 2737
  4379.         StrCopy(servicedesc, 'srp-feedback : SRP Feedback')
  4380.     CASE 2738
  4381.         StrCopy(servicedesc, 'ndl-tcp-ois-gw : NDL TCP-OSI Gateway')
  4382.     CASE 2739
  4383.         StrCopy(servicedesc, 'tn-timing : TN Timing')
  4384.     CASE 2740
  4385.         StrCopy(servicedesc, 'alarm : Alarm')
  4386.     CASE 2741
  4387.         StrCopy(servicedesc, 'tsb : TSB')
  4388.     CASE 2742
  4389.         StrCopy(servicedesc, 'tsb2 : TSB2')
  4390.     CASE 2743
  4391.         StrCopy(servicedesc, 'murx : murx')
  4392.     CASE 2744
  4393.         StrCopy(servicedesc, 'honyaku : honyaku')
  4394.     CASE 2745
  4395.         StrCopy(servicedesc, 'urbisnet : URBISNET')
  4396.     CASE 2746
  4397.         StrCopy(servicedesc, 'cpudpencap : CPUDPENCAP')
  4398.     CASE 2747
  4399.         StrCopy(servicedesc, 'fjippol-swrly : fjippol-swrly')
  4400.     CASE 2748
  4401.         StrCopy(servicedesc, 'fjippol-polsvr : fjippol-polsvr')
  4402.     CASE 2749
  4403.         StrCopy(servicedesc, 'fjippol-cnsl : fjippol-cnsl ')
  4404.     CASE 2750
  4405.         StrCopy(servicedesc, 'fjippol-port1 : fjippol-port1 ')
  4406.     CASE 2751
  4407.         StrCopy(servicedesc, 'fjippol-port2 : fjippol-port2 ')
  4408.     CASE 2752
  4409.         StrCopy(servicedesc, 'rsisysaccess : RSISYS ACCESS')
  4410.     CASE 2753
  4411.         StrCopy(servicedesc, 'de-spot : de-spot')
  4412.     CASE 2754
  4413.         StrCopy(servicedesc, 'apollo-cc : APOLLO CC')
  4414.     CASE 2755
  4415.         StrCopy(servicedesc, 'expresspay : Express Pay')
  4416.     CASE 2756
  4417.         StrCopy(servicedesc, 'simplement-tie : simplement-tie')
  4418.     CASE 2757
  4419.         StrCopy(servicedesc, 'cnrp : CNRP')
  4420.     CASE 2758
  4421.         StrCopy(servicedesc, 'apollo-status : APOLLO Status')
  4422.     CASE 2759
  4423.         StrCopy(servicedesc, 'apollo-gms : APOLLO GMS')
  4424.     CASE 2760
  4425.         StrCopy(servicedesc, 'sabams : Saba MS')
  4426.     CASE 2761
  4427.         StrCopy(servicedesc, 'dicom-iscl : DICOM ISCL')
  4428.     CASE 2762
  4429.         StrCopy(servicedesc, 'dicom-tls : DICOM TLS')
  4430.     CASE 2763
  4431.         StrCopy(servicedesc, 'desktop-dna : Desktop DNA')
  4432.     CASE 2764
  4433.         StrCopy(servicedesc, 'data-insurance : Data Insurance')
  4434.     CASE 2765
  4435.         StrCopy(servicedesc, 'qip-audup : qip-audup')
  4436.     CASE 2766
  4437.         StrCopy(servicedesc, 'listen : System V Listener Port ; compaq-scp : Compaq SCP')
  4438.     CASE 2767
  4439.         StrCopy(servicedesc, 'uadtc : UADTC')
  4440.     CASE 2768
  4441.         StrCopy(servicedesc, 'uacs : UACS')
  4442.     CASE 2769
  4443.         StrCopy(servicedesc, 'singlept-mvs : Single Point MVS')
  4444.     CASE 2770
  4445.         StrCopy(servicedesc, 'veronica : Veronica')
  4446.     CASE 2771
  4447.         StrCopy(servicedesc, 'vergencecm : Vergence CM')
  4448.     CASE 2772
  4449.         StrCopy(servicedesc, 'auris : auris')
  4450.     CASE 2773
  4451.         StrCopy(servicedesc, 'pcbakcup1 : PC Backup')
  4452.     CASE 2774
  4453.         StrCopy(servicedesc, 'pcbakcup2 : PC Backup')
  4454.     CASE 2775
  4455.         StrCopy(servicedesc, 'smpp : SMMP')
  4456.     CASE 2776
  4457.         StrCopy(servicedesc, 'ridgeway1 : Ridgeway Systems & Software')
  4458.     CASE 2777
  4459.         StrCopy(servicedesc, 'ridgeway2 : Ridgeway Systems & Software')
  4460.     CASE 2778
  4461.         StrCopy(servicedesc, 'gwen-sonya : Gwen-Sonya')
  4462.     CASE 2779
  4463.         StrCopy(servicedesc, 'lbc-sync : LBC Sync')
  4464.     CASE 2780
  4465.         StrCopy(servicedesc, 'lbc-control : LBC Control')
  4466.     CASE 2781
  4467.         StrCopy(servicedesc, 'whosells : ResolveNet IOM whosells')
  4468.     CASE 2782
  4469.         StrCopy(servicedesc, 'everydayrc : everydayrc')
  4470.     CASE 2783
  4471.         StrCopy(servicedesc, 'aises : AISES')
  4472.     CASE 2784
  4473.         StrCopy(servicedesc, 'www-dev : world wide web - development')
  4474.     CASE 2785
  4475.         StrCopy(servicedesc, 'aic-np : aic-np')
  4476.     CASE 2786
  4477.         StrCopy(servicedesc, 'aic-oncrpc : aic-oncrpc - Destiny MCD database')
  4478.     CASE 2787
  4479.         StrCopy(servicedesc, 'piccolo : piccolo - Cornerstone Software')
  4480.     CASE 2788
  4481.         StrCopy(servicedesc, 'fryeserv : NetWare Loadable Module - Seagate Software')
  4482.     CASE 2789
  4483.         StrCopy(servicedesc, 'media-agent : Media Agent')
  4484.     CASE 2790
  4485.         StrCopy(servicedesc, 'plgproxy : PLG Proxy')
  4486.     CASE 2791
  4487.         StrCopy(servicedesc, 'mtport-regist : MT Port Registrator')
  4488.     CASE 2792
  4489.         StrCopy(servicedesc, 'f5-globalsite : f5-globalsite')
  4490.     CASE 2793
  4491.         StrCopy(servicedesc, 'initlsmsad : initlsmsad')
  4492.     CASE 2794
  4493.         StrCopy(servicedesc, 'aaftp : aaftp')
  4494.     CASE 2795
  4495.         StrCopy(servicedesc, 'livestats : LiveStats')
  4496.     CASE 2796
  4497.         StrCopy(servicedesc, 'ac-tech : ac-tech')
  4498.     CASE 2797
  4499.         StrCopy(servicedesc, 'esp-encap : esp-encap')
  4500.     CASE 2798
  4501.         StrCopy(servicedesc, 'tmesis-upshot : TMESIS-UPShot')
  4502.     CASE 2799
  4503.         StrCopy(servicedesc, 'icon-discover : ICON Discover')
  4504.     CASE 2800
  4505.         StrCopy(servicedesc, 'acc-raid : ACC RAID')
  4506.     CASE 2801
  4507.         StrCopy(servicedesc, 'igcp : IGCP ; \eb[TROJANS=Phineas Phucker]\en')
  4508.     CASE 2802
  4509.         StrCopy(servicedesc, 'veritas-tcp1 : Veritas TCP1')
  4510.     CASE 2803
  4511.         StrCopy(servicedesc, 'btprjctrl : btprjctrl')
  4512.     CASE 2804
  4513.         StrCopy(servicedesc, 'telexis-vtu : Telexis VTU')
  4514.     CASE 2805
  4515.         StrCopy(servicedesc, 'wta-wsp-s : WTA WSP-S')
  4516.     CASE 2806
  4517.         StrCopy(servicedesc, 'cspuni : cspuni')
  4518.     CASE 2807
  4519.         StrCopy(servicedesc, 'cspmulti : cspmulti')
  4520.     CASE 2808
  4521.         StrCopy(servicedesc, 'j-lan-p : J-LAN-P')
  4522.     CASE 2809
  4523.         StrCopy(servicedesc, 'corbaloc : CORBA LOC')
  4524.     CASE 2810
  4525.         StrCopy(servicedesc, 'netsteward : Active Net Steward')
  4526.     CASE 2811
  4527.         StrCopy(servicedesc, 'gsiftp : GSI FTP')
  4528.     CASE 2812
  4529.         StrCopy(servicedesc, 'atmtcp : atmtcp')
  4530.     CASE 2813
  4531.         StrCopy(servicedesc, 'llm-pass : llm-pass')
  4532.     CASE 2814
  4533.         StrCopy(servicedesc, 'llm-csv : llm-csv')
  4534.     CASE 2815
  4535.         StrCopy(servicedesc, 'lbc-measure : LBC Measurement')
  4536.     CASE 2816
  4537.         StrCopy(servicedesc, 'lbc-watchdog : LBC Watchdog')
  4538.     CASE 2817
  4539.         StrCopy(servicedesc, 'nmsigport : NMSig Port')
  4540.     CASE 2818
  4541.         StrCopy(servicedesc, 'rmlnk : rmlnk')
  4542.     CASE 2819
  4543.         StrCopy(servicedesc, 'fc-faultnotify : FC Fault Notification')
  4544.     CASE 2820
  4545.         StrCopy(servicedesc, 'univision : UniVision')
  4546.     CASE 2821
  4547.         StrCopy(servicedesc, 'vml-dms : vml_dms')
  4548.     CASE 2822
  4549.         StrCopy(servicedesc, 'ka0wuc : ka0wuc')
  4550.     CASE 2823
  4551.         StrCopy(servicedesc, 'cqg-netlan : CQG Net/LAN')
  4552.     CASE 2826
  4553.         StrCopy(servicedesc, 'slc-systemlog : slc systemlog')
  4554.     CASE 2827
  4555.         StrCopy(servicedesc, 'slc-ctrlrloops : slc ctrlrloops')
  4556.     CASE 2828
  4557.         StrCopy(servicedesc, 'itm-lm : ITM License Manager')
  4558.     CASE 2829
  4559.         StrCopy(servicedesc, 'silkp1 : silkp1')
  4560.     CASE 2830
  4561.         StrCopy(servicedesc, 'silkp2 : silkp2')
  4562.     CASE 2831
  4563.         StrCopy(servicedesc, 'silkp3 : silkp3')
  4564.     CASE 2832
  4565.         StrCopy(servicedesc, 'silkp4 : silkp4')
  4566.     CASE 2833
  4567.         StrCopy(servicedesc, 'glishd : glishd')
  4568.     CASE 2834
  4569.         StrCopy(servicedesc, 'evtp : EVTP')
  4570.     CASE 2835
  4571.         StrCopy(servicedesc, 'evtp-data : EVTP-DATA')
  4572.     CASE 2836
  4573.         StrCopy(servicedesc, 'catalyst : catalyst')
  4574.     CASE 2837
  4575.         StrCopy(servicedesc, 'repliweb : Repliweb')
  4576.     CASE 2838
  4577.         StrCopy(servicedesc, 'starbot : Starbot')
  4578.     CASE 2839
  4579.         StrCopy(servicedesc, 'nmsigport : NMSigPort')
  4580.     CASE 2840
  4581.         StrCopy(servicedesc, 'l3-exprt : l3-exprt')
  4582.     CASE 2841
  4583.         StrCopy(servicedesc, 'l3-ranger : l3-ranger')
  4584.     CASE 2842
  4585.         StrCopy(servicedesc, 'l3-hawk : l3-hawk')
  4586.     CASE 2843
  4587.         StrCopy(servicedesc, 'pdnet : PDnet')
  4588.     CASE 2844
  4589.         StrCopy(servicedesc, 'bpcp-poll : BPCP POLL')
  4590.     CASE 2845
  4591.         StrCopy(servicedesc, 'bpcp-trap : BPCP TRAP')
  4592.     CASE 2846
  4593.         StrCopy(servicedesc, 'aimpp-hello : AIMPP Hello')
  4594.     CASE 2847
  4595.         StrCopy(servicedesc, 'aimpp-port-req : AIMPP Port Req')
  4596.     CASE 2848
  4597.         StrCopy(servicedesc, 'amt-blc-port : AMT-BLC-PORT')
  4598.     CASE 2849
  4599.         StrCopy(servicedesc, 'fxp : FXP')
  4600.     CASE 2850
  4601.         StrCopy(servicedesc, 'metaconsole : MetaConsole')
  4602.     CASE 2851
  4603.         StrCopy(servicedesc, 'webemshttp : webemshttp')
  4604.     CASE 2852
  4605.         StrCopy(servicedesc, 'bears-01 : bears-01')
  4606.     CASE 2853
  4607.         StrCopy(servicedesc, 'ispipes : ISPipes')
  4608.     CASE 2854
  4609.         StrCopy(servicedesc, 'infomover : InfoMover')
  4610.     CASE 2856
  4611.         StrCopy(servicedesc, 'cesdinv : cesdinv')
  4612.     CASE 2857
  4613.         StrCopy(servicedesc, 'simctlp : SimCtIP')
  4614.     CASE 2858
  4615.         StrCopy(servicedesc, 'ecnp : ECNP')
  4616.     CASE 2859
  4617.         StrCopy(servicedesc, 'activememory : Active Memory')
  4618.     CASE 2860
  4619.         StrCopy(servicedesc, 'dialpad-voice1 : Dialpad Voice 1')
  4620.     CASE 2861
  4621.         StrCopy(servicedesc, 'dialpad-voice2 : Dialpad Voice 2')
  4622.     CASE 2862
  4623.         StrCopy(servicedesc, 'ttg-protocol : TTG Protocol')
  4624.     CASE 2863
  4625.         StrCopy(servicedesc, 'sonardata : Sonar Data')
  4626.     CASE 2864
  4627.         StrCopy(servicedesc, 'astromed-main : main 5001 cmd')
  4628.     CASE 2865
  4629.         StrCopy(servicedesc, 'pit-vpn : pit-vpn')
  4630.     CASE 2866
  4631.         StrCopy(servicedesc, 'lwlistener : lwlistener')
  4632.     CASE 2867
  4633.         StrCopy(servicedesc, 'esps-portal : esps-portal')
  4634.     CASE 2868
  4635.         StrCopy(servicedesc, 'npep-messaging : NPEP Messaging')
  4636.     CASE 2869
  4637.         StrCopy(servicedesc, 'icslap : ICSLAP')
  4638.     CASE 2870
  4639.         StrCopy(servicedesc, 'daishi : daishi')
  4640.     CASE 2871
  4641.         StrCopy(servicedesc, 'msi-selectplay : MSI Select Play')
  4642.     CASE 2872
  4643.         StrCopy(servicedesc, 'contract : CONTRACT')
  4644.     CASE 2873
  4645.         StrCopy(servicedesc, 'paspar2-zoomin : PASPAR2 ZoomIn')
  4646.     CASE 2874
  4647.         StrCopy(servicedesc, 'dxmessagebase1 : dxmessagebase1')
  4648.     CASE 2875
  4649.         StrCopy(servicedesc, 'dxmessagebase2 : dxmessagebase2')
  4650.     CASE 2876
  4651.         StrCopy(servicedesc, 'sps-tunnel : SPS Tunnel')
  4652.     CASE 2877
  4653.         StrCopy(servicedesc, 'bluelance : BLUELANCE')
  4654.     CASE 2878
  4655.         StrCopy(servicedesc, 'aap : AAP')
  4656.     CASE 2879
  4657.         StrCopy(servicedesc, 'ucentric-ds : ucentric-ds')
  4658.     CASE 2880
  4659.         StrCopy(servicedesc, 'synapse : synapse')
  4660.     CASE 2881
  4661.         StrCopy(servicedesc, 'ndsp : NDSP')
  4662.     CASE 2882
  4663.         StrCopy(servicedesc, 'ndtp : NDTP')
  4664.     CASE 2883
  4665.         StrCopy(servicedesc, 'ndnp : NDNP')
  4666.     CASE 2884
  4667.         StrCopy(servicedesc, 'flashmsg : Flash Msg')
  4668.     CASE 2885
  4669.         StrCopy(servicedesc, 'topflow : TopFlow')
  4670.     CASE 2886
  4671.         StrCopy(servicedesc, 'responselogic : RESPONSELOGIC')
  4672.     CASE 2887
  4673.         StrCopy(servicedesc, 'aironetddp : aironet')
  4674.     CASE 2888
  4675.         StrCopy(servicedesc, 'spcsdlobby : SPCSDLOBBY')
  4676.     CASE 2889
  4677.         StrCopy(servicedesc, 'rsom : RSOM')
  4678.     CASE 2890
  4679.         StrCopy(servicedesc, 'cspclmulti : CSPCLMULTI')
  4680.     CASE 2891
  4681.         StrCopy(servicedesc, 'cinegrfx-elmd : CINEGRFX-ELMD License Manager')
  4682.     CASE 2892
  4683.         StrCopy(servicedesc, 'snifferdata : SNIFFERDATA')
  4684.     CASE 2893
  4685.         StrCopy(servicedesc, 'vseconnector : VSECONNECTOR')
  4686.     CASE 2894
  4687.         StrCopy(servicedesc, 'abacus-remote : ABACUS-REMOTE')
  4688.     CASE 2895
  4689.         StrCopy(servicedesc, 'natuslink : NATUS LINK')
  4690.     CASE 2896
  4691.         StrCopy(servicedesc, 'ecovisiong6-1 : ECOVISIONG6-1')
  4692.     CASE 2897
  4693.         StrCopy(servicedesc, 'citrix-rtmp : Citrix RTMP')
  4694.     CASE 2898
  4695.         StrCopy(servicedesc, 'appliance-cfg : APPLIANCE-CFG')
  4696.     CASE 2899
  4697.         StrCopy(servicedesc, 'powergemplus : POWERGEMPLUS')
  4698.     CASE 2900
  4699.         StrCopy(servicedesc, 'quicksuite : QUICKSUITE')
  4700.     CASE 2901
  4701.         StrCopy(servicedesc, 'allstorcns : ALLSTORCNS')
  4702.     CASE 2902
  4703.         StrCopy(servicedesc, 'netaspi : NET ASPI')
  4704.     CASE 2903
  4705.         StrCopy(servicedesc, 'suitcase : SUITCASE')
  4706.     CASE 2904
  4707.         StrCopy(servicedesc, 'm2ua : M2UA')
  4708.     CASE 2905
  4709.         StrCopy(servicedesc, 'm3ua : M3UA')
  4710.     CASE 2906
  4711.         StrCopy(servicedesc, 'caller9 : CALLER9')
  4712.     CASE 2907
  4713.         StrCopy(servicedesc, 'webmethods-b2b : WEBMETHODS B2B')
  4714.     CASE 2908
  4715.         StrCopy(servicedesc, 'mao : mao')
  4716.     CASE 2909
  4717.         StrCopy(servicedesc, 'funk-dialout : Funk Dialout')
  4718.     CASE 2910
  4719.         StrCopy(servicedesc, 'tdaccess : TDAccess')
  4720.     CASE 2911
  4721.         StrCopy(servicedesc, 'blockade : Blockade')
  4722.     CASE 2912
  4723.         StrCopy(servicedesc, 'epicon : Epicon')
  4724.     CASE 2913
  4725.         StrCopy(servicedesc, 'boosterware : Booster Ware')
  4726.     CASE 2914
  4727.         StrCopy(servicedesc, 'gamelobby : Game Lobby')
  4728.     CASE 2915
  4729.         StrCopy(servicedesc, 'tksocket : TK Socket')
  4730.     CASE 2916
  4731.         StrCopy(servicedesc, 'elvin_server : Elvin Server')
  4732.     CASE 2917
  4733.         StrCopy(servicedesc, 'elvin_client : Elvin Client')
  4734.     CASE 2918
  4735.         StrCopy(servicedesc, 'kastenchasepad : Kasten Chase Pad')
  4736.     CASE 2919
  4737.         StrCopy(servicedesc, 'roboer : ROBOER')
  4738.     CASE 2920
  4739.         StrCopy(servicedesc, 'roboeda : ROBOEDA')
  4740.     CASE 2921
  4741.         StrCopy(servicedesc, 'cesdcdman : CESD Contents Delivery Management')
  4742.     CASE 2922
  4743.         StrCopy(servicedesc, 'cesdcdtrn : CESD Contents Delivery Data Transfer')
  4744.     CASE 2923
  4745.         StrCopy(servicedesc, 'wta-wsp-wtp-s : WTA-WSP-WTP-S')
  4746.     CASE 2924
  4747.         StrCopy(servicedesc, 'precise-vip : PRECISE-VIP')
  4748.     CASE 2926
  4749.         StrCopy(servicedesc, 'mobile-file-dl : MOBILE-FILE-DL')
  4750.     CASE 2927
  4751.         StrCopy(servicedesc, 'unimobilectrl : UNIMOBILECTRL')
  4752.     CASE 2928
  4753.         StrCopy(servicedesc, 'redstone-cpss : REDSTONE-CPSS')
  4754.     CASE 2929
  4755.         StrCopy(servicedesc, 'panja-webadmin : PANJA-WEBADMIN')
  4756.     CASE 2930
  4757.         StrCopy(servicedesc, 'panja-weblinx : PANJA-WEBLINX')
  4758.     CASE 2931
  4759.         StrCopy(servicedesc, 'circle-x : Circle-X')
  4760.     CASE 2932
  4761.         StrCopy(servicedesc, 'incp : INCP')
  4762.     CASE 2933
  4763.         StrCopy(servicedesc, '4-tieropmgw : 4-TIER OPM GW ')
  4764.     CASE 2934
  4765.         StrCopy(servicedesc, '4-tieropmcli : 4-TIER OPM CLI')
  4766.     CASE 2935
  4767.         StrCopy(servicedesc, 'qtp : QTP')
  4768.     CASE 2936
  4769.         StrCopy(servicedesc, 'otpatch : OTPatch')
  4770.     CASE 2937
  4771.         StrCopy(servicedesc, 'pnaconsult-lm : PNACONSULT-LM')
  4772.     CASE 2938
  4773.         StrCopy(servicedesc, 'sm-pas-1 : SM-PAS-1')
  4774.     CASE 2939
  4775.         StrCopy(servicedesc, 'sm-pas-2 : SM-PAS-2')
  4776.     CASE 2940
  4777.         StrCopy(servicedesc, 'sm-pas-3 : SM-PAS-3')
  4778.     CASE 2941
  4779.         StrCopy(servicedesc, 'sm-pas-4 : SM-PAS-4')
  4780.     CASE 2942
  4781.         StrCopy(servicedesc, 'sm-pas-5 : SM-PAS-5')
  4782.     CASE 2943
  4783.         StrCopy(servicedesc, 'ttnrepository : TTNRepository')
  4784.     CASE 2944
  4785.         StrCopy(servicedesc, 'megaco-h248 : Megaco H-248')
  4786.     CASE 2945
  4787.         StrCopy(servicedesc, 'h248-binary : H248 Binary')
  4788.     CASE 2946
  4789.         StrCopy(servicedesc, 'fjsvmpor : FJSVmpor')
  4790.     CASE 2947
  4791.         StrCopy(servicedesc, 'gpsd : GPSD')
  4792.     CASE 2948
  4793.         StrCopy(servicedesc, 'wap-push : WAP PUSH')
  4794.     CASE 2949
  4795.         StrCopy(servicedesc, 'wap-pushsecure : WAP PUSH SECURE')
  4796.     CASE 2950
  4797.         StrCopy(servicedesc, 'esip : ESIP')
  4798.     CASE 2951
  4799.         StrCopy(servicedesc, 'ottp : OTTP')
  4800.     CASE 2952
  4801.         StrCopy(servicedesc, 'mpfwsas : MPFWSAS')
  4802.     CASE 2953
  4803.         StrCopy(servicedesc, 'ovalarmsrv : OVALARMSRV')
  4804.     CASE 2954
  4805.         StrCopy(servicedesc, 'ovalarmsrv-cmd : OVALARMSRV-CMD')
  4806.     CASE 2955
  4807.         StrCopy(servicedesc, 'csnotify : CSNOTIFY')
  4808.     CASE 2956
  4809.         StrCopy(servicedesc, 'ovrimosdbman : OVRIMOSDBMAN')
  4810.     CASE 2957
  4811.         StrCopy(servicedesc, 'jmact5 : JAMCT5 ; AMarquee : AMarquee')
  4812.     CASE 2958
  4813.         StrCopy(servicedesc, 'jmact6 : JAMCT6')
  4814.     CASE 2959
  4815.         StrCopy(servicedesc, 'rmopagt : RMOPAGT')
  4816.     CASE 2960
  4817.         StrCopy(servicedesc, 'dfoxserver : DFOXSERVER')
  4818.     CASE 2961
  4819.         StrCopy(servicedesc, 'boldsoft-lm : BOLDSOFT-LM')
  4820.     CASE 2962
  4821.         StrCopy(servicedesc, 'iph-policy-cli : IPH-POLICY-CLI')
  4822.     CASE 2963
  4823.         StrCopy(servicedesc, 'iph-policy-adm : IPH-POLICY-ADM')
  4824.     CASE 2964
  4825.         StrCopy(servicedesc, 'bullant-srap : BULLANT SRAP')
  4826.     CASE 2965
  4827.         StrCopy(servicedesc, 'bullant-rap : BULLANT RAP')
  4828.     CASE 2966
  4829.         StrCopy(servicedesc, 'idp-infotrieve : IDP-INFOTRIEVE')
  4830.     CASE 2967
  4831.         StrCopy(servicedesc, 'ssc-agent : SSC-AGENT')
  4832.     CASE 2968
  4833.         StrCopy(servicedesc, 'enpp : ENPP')
  4834.     CASE 2969
  4835.         StrCopy(servicedesc, 'essp : ESSP')
  4836.     CASE 2970
  4837.         StrCopy(servicedesc, 'index-net : INDEX-NET')
  4838.     CASE 2971
  4839.         StrCopy(servicedesc, 'netclip : Net Clip')
  4840.     CASE 2972
  4841.         StrCopy(servicedesc, 'pmsm-webrctl : PMSM Webrctl')
  4842.     CASE 2973
  4843.         StrCopy(servicedesc, 'svnetworks : SV Networks')
  4844.     CASE 2974
  4845.         StrCopy(servicedesc, 'signal : Signal')
  4846.     CASE 2975
  4847.         StrCopy(servicedesc, 'fjmpcm : Fujitsu Configuration Management Service')
  4848.     CASE 2976
  4849.         StrCopy(servicedesc, 'cns-srv-port : CNS Server Port')
  4850.     CASE 2977
  4851.         StrCopy(servicedesc, 'ttc-etap-ns : TTCs Enterprise Test Access Protocol - NS')
  4852.     CASE 2978
  4853.         StrCopy(servicedesc, 'ttc-etap-ds : TTCs Enterprise Test Access Protocol - DS')
  4854.     CASE 2979
  4855.         StrCopy(servicedesc, 'h263-video : H.263 Video Streaming ')
  4856.     CASE 2980
  4857.         StrCopy(servicedesc, 'wimd : Instant Messaging Service')
  4858.     CASE 2981
  4859.         StrCopy(servicedesc, 'mylxamport : MYLXAMPORT')
  4860.     CASE 2982
  4861.         StrCopy(servicedesc, 'iwb-whiteboard : IWB-WHITEBOARD')
  4862.     CASE 2983
  4863.         StrCopy(servicedesc, 'netplan : NETPLAN')
  4864.     CASE 2984
  4865.         StrCopy(servicedesc, 'hpidsadmin : HPIDSADMIN')
  4866.     CASE 2985
  4867.         StrCopy(servicedesc, 'hpidsagent : HPIDSAGENT')
  4868.     CASE 2986
  4869.         StrCopy(servicedesc, 'stonefalls : STONEFALLS')
  4870.     CASE 2987
  4871.         StrCopy(servicedesc, 'identify : ResolveNet IOM IDENTIFY')
  4872.     CASE 2988
  4873.         StrCopy(servicedesc, 'classify : ResolveNet IOM CLASSIFY')
  4874.     CASE 2989
  4875.         StrCopy(servicedesc, 'zarkov : ZARKOV')
  4876.     CASE 2990
  4877.         StrCopy(servicedesc, 'boscap : BOSCAP')
  4878.     CASE 2991
  4879.         StrCopy(servicedesc, 'wkstn-mon : WKSTN-MON')
  4880.     CASE 2992
  4881.         StrCopy(servicedesc, 'itb301 : ITB301')
  4882.     CASE 2993
  4883.         StrCopy(servicedesc, 'veritas-vis1 : VERITAS VIS1')
  4884.     CASE 2994
  4885.         StrCopy(servicedesc, 'veritas-vis2 : VERITAS VIS2')
  4886.     CASE 2995
  4887.         StrCopy(servicedesc, 'idrs : IDRS')
  4888.     CASE 2996
  4889.         StrCopy(servicedesc, 'vsixml : vsixml')
  4890.     CASE 2997
  4891.         StrCopy(servicedesc, 'rebol : REBOL')
  4892.     CASE 2998
  4893.         StrCopy(servicedesc, 'realsecure : Real Secure Remote Console admin; afbackup : AFBackup System')
  4894.     CASE 2999
  4895.         StrCopy(servicedesc, 'remoteware-un : RemoteWare Unassigned')
  4896.     CASE 3000
  4897.         StrCopy(servicedesc, 'hbci : HBCI')
  4898.     CASE 3000
  4899.         StrCopy(servicedesc, 'remoteware-cl ppp : RemoteWare Client ; User Level PPP Daemon')
  4900.     CASE 3001
  4901.         StrCopy(servicedesc, 'redwood-broker nessusd : Redwood Broker ; Nessus Security Scanner')
  4902.     CASE 3002
  4903.         StrCopy(servicedesc, 'exlm-agent : EXLM Agent')
  4904.     CASE 3002
  4905.         StrCopy(servicedesc, 'remoteware-srv : RemoteWare Server')
  4906.     CASE 3003
  4907.         StrCopy(servicedesc, 'cgms : CGMS')
  4908.     CASE 3004
  4909.         StrCopy(servicedesc, 'csoftragent : Csoft Agent')
  4910.     CASE 3005
  4911.         StrCopy(servicedesc, 'geniuslm deslogin : Genius License Manager ; Encrypted Symmetric Login')
  4912.     CASE 3006
  4913.         StrCopy(servicedesc, 'ii-admin deslogind : Instant Internet Admin ; Encrypted Symmetic Login')
  4914.     CASE 3007
  4915.         StrCopy(servicedesc, 'lotusmtap : Lotus Mail Tracking Agent Protocol')
  4916.     CASE 3008
  4917.         StrCopy(servicedesc, 'midnight-tech : Midnight Technologies')
  4918.     CASE 3009
  4919.         StrCopy(servicedesc, 'pxc-ntfy : PXC-NTFY')
  4920.     CASE 3010
  4921.         StrCopy(servicedesc, 'gw : Telerate Workstation')
  4922.     CASE 3011
  4923.         StrCopy(servicedesc, 'trusted-web : Trusted Web')
  4924.     CASE 3012
  4925.         StrCopy(servicedesc, 'twsdss : Trusted Web Client')
  4926.     CASE 3013
  4927.         StrCopy(servicedesc, 'gilatskysurfer : Gilat Sky Surfer')
  4928.     CASE 3014
  4929.         StrCopy(servicedesc, 'broker_service : Broker Service')
  4930.     CASE 3015
  4931.         StrCopy(servicedesc, 'nati-dstp : NATI DSTP')
  4932.     CASE 3016
  4933.         StrCopy(servicedesc, 'notify_srvr : Notify Server')
  4934.     CASE 3017
  4935.         StrCopy(servicedesc, 'event_listener : Event Listener')
  4936.     CASE 3018
  4937.         StrCopy(servicedesc, 'srvc_registry : Service Registry')
  4938.     CASE 3019
  4939.         StrCopy(servicedesc, 'resource_mgr : Resource Manager')
  4940.     CASE 3020
  4941.         StrCopy(servicedesc, 'cifs : CIFS')
  4942.     CASE 3021
  4943.         StrCopy(servicedesc, 'agriserver : AGRI Server')
  4944.     CASE 3022
  4945.         StrCopy(servicedesc, 'csregagent : CSREGAGENT')
  4946.     CASE 3023
  4947.         StrCopy(servicedesc, 'magicnotes : magicnotes')
  4948.     CASE 3024
  4949.         StrCopy(servicedesc, 'nds_sso : NDS_SSO ; \eb[TROJANS=WinCrash]\en')
  4950.     CASE 3025
  4951.         StrCopy(servicedesc, 'arepa-raft : Arepa Raft ')
  4952.     CASE 3026
  4953.         StrCopy(servicedesc, 'agri-gateway : AGRI Gateway')
  4954.     CASE 3027
  4955.         StrCopy(servicedesc, 'LiebDevMgmt_C : LiebDevMgmt_C')
  4956.     CASE 3028
  4957.         StrCopy(servicedesc, 'LiebDevMgmt_DM : LiebDevMgmt_DM')
  4958.     CASE 3029
  4959.         StrCopy(servicedesc, 'LiebDevMgmt_A : LiebDevMgmt_A')
  4960.     CASE 3030
  4961.         StrCopy(servicedesc, 'arepa-cas : Arepa Cas')
  4962.     CASE 3031
  4963.         StrCopy(servicedesc, 'agentvu : AgentVU ')
  4964.     CASE 3032
  4965.         StrCopy(servicedesc, 'redwood-chat : Redwood Chat')
  4966.     CASE 3033
  4967.         StrCopy(servicedesc, 'pdb : PDB')
  4968.     CASE 3034
  4969.         StrCopy(servicedesc, 'osmosis-aeea : Osmosis AEEA')
  4970.     CASE 3035
  4971.         StrCopy(servicedesc, 'fjsv-gssagt : FJSV gssagt')
  4972.     CASE 3036
  4973.         StrCopy(servicedesc, 'hagel-dump : Hagel DUMP')
  4974.     CASE 3037
  4975.         StrCopy(servicedesc, 'hp-san-mgmt : HP SAN Mgmt')
  4976.     CASE 3038
  4977.         StrCopy(servicedesc, 'santak-ups : Santak UPS')
  4978.     CASE 3039
  4979.         StrCopy(servicedesc, 'cogitate : Cogitate, Inc.')
  4980.     CASE 3040
  4981.         StrCopy(servicedesc, 'tomato-springs : Tomato Springs')
  4982.     CASE 3041
  4983.         StrCopy(servicedesc, 'di-traceware : di-traceware')
  4984.     CASE 3042
  4985.         StrCopy(servicedesc, 'journee : journee')
  4986.     CASE 3043
  4987.         StrCopy(servicedesc, 'brp : BRP')
  4988.     CASE 3045
  4989.         StrCopy(servicedesc, 'responsenet : ResponseNet')
  4990.     CASE 3046
  4991.         StrCopy(servicedesc, 'di-ase : di-ase')
  4992.     CASE 3047
  4993.         StrCopy(servicedesc, 'hlserver : Fast Security HL Server')
  4994.     CASE 3048
  4995.         StrCopy(servicedesc, 'pctrader : Sierra Net PC Trader')
  4996.     CASE 3049
  4997.         StrCopy(servicedesc, 'nsws cfs : NSWS ; Cryptographic Filesystem')
  4998.     CASE 3050
  4999.         StrCopy(servicedesc, 'gds_db : gds_db')
  5000.     CASE 3051
  5001.         StrCopy(servicedesc, 'galaxy-server : Galaxy Server')
  5002.     CASE 3052
  5003.         StrCopy(servicedesc, 'apcpcns : APCPCNS')
  5004.     CASE 3053
  5005.         StrCopy(servicedesc, 'dsom-server : dsom-server')
  5006.     CASE 3054
  5007.         StrCopy(servicedesc, 'amt-cnf-prot : AMT CNF PROT')
  5008.     CASE 3055
  5009.         StrCopy(servicedesc, 'policyserver : Policy Server')
  5010.     CASE 3056
  5011.         StrCopy(servicedesc, 'cdl-server : CDL Server')
  5012.     CASE 3057
  5013.         StrCopy(servicedesc, 'goahead-fldup : GoAhead FldUp')
  5014.     CASE 3058
  5015.         StrCopy(servicedesc, 'videobeans : videobeans')
  5016.     CASE 3059
  5017.         StrCopy(servicedesc, 'qsoft : qsoft')
  5018.     CASE 3059
  5019.         StrCopy(servicedesc, 'qsoft : qsoft')
  5020.     CASE 3060
  5021.         StrCopy(servicedesc, 'interserver : interserver')
  5022.     CASE 3061
  5023.         StrCopy(servicedesc, 'cautcpd : cautcpd')
  5024.     CASE 3062
  5025.         StrCopy(servicedesc, 'ncacn-ip-tcp : ncacn-ip-tcp')
  5026.     CASE 3063
  5027.         StrCopy(servicedesc, 'ncadg-ip-udp : ncadg-ip-udp')
  5028.     CASE 3064
  5029.         StrCopy(servicedesc, 'distrib-net-proxy : Distributed.net Project Proxy')
  5030.     CASE 3065
  5031.         StrCopy(servicedesc, 'slinterbase : slinterbase')
  5032.     CASE 3066
  5033.         StrCopy(servicedesc, 'netattachsdmp : NETATTACHSDMP')
  5034.     CASE 3067
  5035.         StrCopy(servicedesc, 'fjhpjp : FJHPJP')
  5036.     CASE 3068
  5037.         StrCopy(servicedesc, 'ls3bcast : ls3 Broadcast')
  5038.     CASE 3069
  5039.         StrCopy(servicedesc, 'ls3 : ls3')
  5040.     CASE 3070
  5041.         StrCopy(servicedesc, 'mgxswitch : MGXSWITCH')
  5042.     CASE 3075
  5043.         StrCopy(servicedesc, 'orbix-locator : Orbix 2000 Locator')
  5044.     CASE 3076
  5045.         StrCopy(servicedesc, 'orbix-config : Orbix 2000 Config')
  5046.     CASE 3077
  5047.         StrCopy(servicedesc, 'orbix-loc-ssl : Orbix 2000 Locator SSL')
  5048.     CASE 3078
  5049.         StrCopy(servicedesc, 'orbix-cfg-ssl : Orbix 2000 Locator SSL')
  5050.     CASE 3079
  5051.         StrCopy(servicedesc, 'lv-frontpanel : LV Front Panel')
  5052.     CASE 3080
  5053.         StrCopy(servicedesc, 'stm_pproc : stm_pproc')
  5054.     CASE 3081
  5055.         StrCopy(servicedesc, 'tl1-lv : TL1-LV')
  5056.     CASE 3082
  5057.         StrCopy(servicedesc, 'tl1-raw : TL1-RAW')
  5058.     CASE 3083
  5059.         StrCopy(servicedesc, 'tl1-telnet : TL1-TELNET')
  5060.     CASE 3084
  5061.         StrCopy(servicedesc, 'itm-mccs : ITM-MCCS')
  5062.     CASE 3085
  5063.         StrCopy(servicedesc, 'pcihreq : PCIHReq')
  5064.     CASE 3086
  5065.         StrCopy(servicedesc, 'jdl-dbkitchen sj3 : JDL-DBKitchen ; SJ3 Kanji (japanese) input')
  5066.     CASE 3100
  5067.         StrCopy(servicedesc, 'opcon-xps : OpCon/xps')
  5068.  
  5069.     DEFAULT
  5070.         StrCopy(servicedesc, 'UNKNOWN')
  5071. ENDSELECT
  5072. ENDPROC
  5073.  
  5074.  
  5075. EXPORT PROC service11(portserv:LONG)
  5076.  
  5077. SELECT portserv
  5078.     CASE 3105
  5079.         StrCopy(servicedesc, 'cardbox : Cardbox')
  5080.     CASE 3106
  5081.         StrCopy(servicedesc, 'cardbox-http : Cardbox HTTP')
  5082.     CASE 3128
  5083.         StrCopy(servicedesc, 'squid-http : Squid HTTP Proxy ; \eb[TROJANS=RingZero]\en')
  5084.     CASE 3129
  5085.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise]\en')
  5086.     CASE 3130
  5087.         StrCopy(servicedesc, 'icp : Internet Cache Protocol ; icpv2 : Internet Cache Protocol (V2)')
  5088.     CASE 3131
  5089.         StrCopy(servicedesc, 'netbookmark : Net Book Mark')
  5090.     CASE 3141
  5091.         StrCopy(servicedesc, 'vmodem : VMODEM')
  5092.     CASE 3142
  5093.         StrCopy(servicedesc, 'rdc-wh-eos : RDC WH EOS')
  5094.     CASE 3143
  5095.         StrCopy(servicedesc, 'seaview : Sea View')
  5096.     CASE 3144
  5097.         StrCopy(servicedesc, 'tarantella : Tarantella')
  5098.     CASE 3145
  5099.         StrCopy(servicedesc, 'csi-lfap : CSI-LFAP')
  5100.     CASE 3147
  5101.         StrCopy(servicedesc, 'rfio : RFIO')
  5102.     CASE 3148
  5103.         StrCopy(servicedesc, 'nm-game-admin : NetMike Game Administrator')
  5104.     CASE 3149
  5105.         StrCopy(servicedesc, 'nm-game-server : NetMike Game Server')
  5106.     CASE 3150
  5107.         StrCopy(servicedesc, 'nm-asses-admin : NetMike Assessor Administrator ; \eb[TROJANS=Deep Throat, The Invasor]\en')
  5108.     CASE 3151
  5109.         StrCopy(servicedesc, 'nm-assessor : NetMike Assessor')
  5110.     CASE 3180
  5111.         StrCopy(servicedesc, 'mc-brk-srv : Millicent Broker Server')
  5112.     CASE 3181
  5113.         StrCopy(servicedesc, 'bmcpatrolagent : BMC Patrol Agent')
  5114.     CASE 3182
  5115.         StrCopy(servicedesc, 'bmcpatrolrnvu : BMC Patrol Rendezvous')
  5116.     CASE 3262
  5117.         StrCopy(servicedesc, 'necp : NECP')
  5118.     CASE 3264
  5119.         StrCopy(servicedesc, 'ccmail : cc:mail/lotus')
  5120.     CASE 3265
  5121.         StrCopy(servicedesc, 'altav-tunnel : Altav Tunnel')
  5122.     CASE 3266
  5123.         StrCopy(servicedesc, 'ns-cfg-server : NS CFG Server')
  5124.     CASE 3267
  5125.         StrCopy(servicedesc, 'ibm-dial-out : IBM Dial Out')
  5126.     CASE 3268
  5127.         StrCopy(servicedesc, 'msft-gc : Microsoft Global Catalog')
  5128.     CASE 3269
  5129.         StrCopy(servicedesc, 'msft-gc-ssl : Microsoft Global Catalog with LDAP/SSL')
  5130.     CASE 3270
  5131.         StrCopy(servicedesc, 'verismart : Verismart')
  5132.     CASE 3271
  5133.         StrCopy(servicedesc, 'csoft-prev : CSoft Prev Port')
  5134.     CASE 3272
  5135.         StrCopy(servicedesc, 'user-manager : Fujitsu User Manager')
  5136.     CASE 3273
  5137.         StrCopy(servicedesc, 'sxmp : Simple Extensible Multiplexed Protocol')
  5138.     CASE 3274
  5139.         StrCopy(servicedesc, 'ordinox-server : Ordinox Server')
  5140.     CASE 3275
  5141.         StrCopy(servicedesc, 'samd : SAMD')
  5142.     CASE 3276
  5143.         StrCopy(servicedesc, 'maxim-asics : Maxim ASICs')
  5144.     CASE 3277
  5145.         StrCopy(servicedesc, 'awg-proxy : AWG Proxy')
  5146.     CASE 3278
  5147.         StrCopy(servicedesc, 'lkcmserver : LKCM Server')
  5148.     CASE 3279
  5149.         StrCopy(servicedesc, 'admind : admind')
  5150.     CASE 3280
  5151.         StrCopy(servicedesc, 'vs-server : VS Server')
  5152.     CASE 3281
  5153.         StrCopy(servicedesc, 'sysopt : SYSOPT')
  5154.     CASE 3282
  5155.         StrCopy(servicedesc, 'datusorb : Datusorb')
  5156.     CASE 3283
  5157.         StrCopy(servicedesc, 'net-assistant : Net Assistant')
  5158.     CASE 3284
  5159.         StrCopy(servicedesc, '4talk : 4Talk')
  5160.     CASE 3285
  5161.         StrCopy(servicedesc, 'plato : Plato')
  5162.     CASE 3286
  5163.         StrCopy(servicedesc, 'e-net : E-Net')
  5164.     CASE 3287
  5165.         StrCopy(servicedesc, 'directvdata : DIRECTVDATA')
  5166.     CASE 3288
  5167.         StrCopy(servicedesc, 'cops : COPS')
  5168.     CASE 3289
  5169.         StrCopy(servicedesc, 'enpc : ENPC')
  5170.     CASE 3290
  5171.         StrCopy(servicedesc, 'caps-lm : CAPS LOGISTICS TOOLKIT - LM')
  5172.     CASE 3291
  5173.         StrCopy(servicedesc, 'sah-lm : S A Holditch & Associates - LM')
  5174.     CASE 3292
  5175.         StrCopy(servicedesc, 'cart-o-rama : Cart O Rama')
  5176.     CASE 3293
  5177.         StrCopy(servicedesc, 'fg-fps : fg-fps')
  5178.     CASE 3294
  5179.         StrCopy(servicedesc, 'fg-gip : fg-gip')
  5180.     CASE 3295
  5181.         StrCopy(servicedesc, 'dyniplookup : Dynamic IP Lookup')
  5182.     CASE 3296
  5183.         StrCopy(servicedesc, 'rib-slm : Rib License Manager')
  5184.     CASE 3297
  5185.         StrCopy(servicedesc, 'cytel-lm : Cytel License Manager')
  5186.     CASE 3298
  5187.         StrCopy(servicedesc, 'transview : Transview')
  5188.     CASE 3299
  5189.         StrCopy(servicedesc, 'pdrncs : pdrncs')
  5190.     CASE 3302
  5191.         StrCopy(servicedesc, 'mcs-fastmail : MCS Fastmail')
  5192.     CASE 3303
  5193.         StrCopy(servicedesc, 'opsession-clnt : OP Session Client')
  5194.     CASE 3304
  5195.         StrCopy(servicedesc, 'opsession-srvr : OP Session Server')
  5196.     CASE 3305
  5197.         StrCopy(servicedesc, 'odette-ftp : ODETTE-FTP')
  5198.     CASE 3306
  5199.         StrCopy(servicedesc, 'mysql : MySQL Database')
  5200.     CASE 3307
  5201.         StrCopy(servicedesc, 'opsession-prxy : OP Session Proxy')
  5202.     CASE 3308
  5203.         StrCopy(servicedesc, 'tns-server : TNS Server')
  5204.     CASE 3309
  5205.         StrCopy(servicedesc, 'tns-adv : TNS ADV')
  5206.     CASE 3310
  5207.         StrCopy(servicedesc, 'dyna-access : Dyna Access')
  5208.     CASE 3311
  5209.         StrCopy(servicedesc, 'mcns-tel-ret : MCNS Tel Ret')
  5210.     CASE 3312
  5211.         StrCopy(servicedesc, 'appman-server : Application Management Server')
  5212.     CASE 3313
  5213.         StrCopy(servicedesc, 'uorb : Unify Object Broker')
  5214.     CASE 3314
  5215.         StrCopy(servicedesc, 'uohost : Unify Object Host')
  5216.     CASE 3315
  5217.         StrCopy(servicedesc, 'cdid : CDID')
  5218.     CASE 3316
  5219.         StrCopy(servicedesc, 'aicc-cmi : AICC/CMI')
  5220.     CASE 3317
  5221.         StrCopy(servicedesc, 'vsaiport : VSAI PORT')
  5222.     CASE 3318
  5223.         StrCopy(servicedesc, 'ssrip : Swith to Swith Routing Information Protocol')
  5224.     CASE 3319
  5225.         StrCopy(servicedesc, 'sdt-lmd : SDT License Manager')
  5226.     CASE 3320
  5227.         StrCopy(servicedesc, 'officelink2000 : Office Link 2000')
  5228.     CASE 3321
  5229.         StrCopy(servicedesc, 'vnsstr : VNSSTR')
  5230.     CASE 3322
  5231.         StrCopy(servicedesc, 'active-net : Active Networks')
  5232.     CASE 3323
  5233.         StrCopy(servicedesc, 'active-net : Active Networks')
  5234.     CASE 3324
  5235.         StrCopy(servicedesc, 'active-net : Active Networks')
  5236.     CASE 3325
  5237.         StrCopy(servicedesc, 'active-net : Active Networks')
  5238.     CASE 3326
  5239.         StrCopy(servicedesc, 'sftu : SFTU')
  5240.     CASE 3327
  5241.         StrCopy(servicedesc, 'bbars : BBARS')
  5242.     CASE 3328
  5243.         StrCopy(servicedesc, 'egptlm : Eaglepoint License Manager')
  5244.     CASE 3329
  5245.         StrCopy(servicedesc, 'hp-device-disc : HP Device Disc')
  5246.     CASE 3330
  5247.         StrCopy(servicedesc, 'mcs-calypsoicf : MCS Calypso ICF')
  5248.     CASE 3331
  5249.         StrCopy(servicedesc, 'mcs-messaging : MCS Messaging')
  5250.     CASE 3332
  5251.         StrCopy(servicedesc, 'mcs-mailsvr : MCS Mail Server')
  5252.     CASE 3333
  5253.         StrCopy(servicedesc, 'dec-notes : DEC Notes')
  5254.     CASE 3334
  5255.         StrCopy(servicedesc, 'directv-web : Direct TV Webcasting')
  5256.     CASE 3335
  5257.         StrCopy(servicedesc, 'directv-soft : Direct TV Software Updates')
  5258.     CASE 3336
  5259.         StrCopy(servicedesc, 'directv-tick : Direct TV Tickers')
  5260.     CASE 3337
  5261.         StrCopy(servicedesc, 'directv-catlg : Direct TV Data Catalog')
  5262.     CASE 3338
  5263.         StrCopy(servicedesc, 'anet-b : OMF data b')
  5264.     CASE 3339
  5265.         StrCopy(servicedesc, 'anet-l : OMF data l')
  5266.     CASE 3340
  5267.         StrCopy(servicedesc, 'anet-m : OMF data m')
  5268.     CASE 3341
  5269.         StrCopy(servicedesc, 'anet-h : OMF data h')
  5270.     CASE 3342
  5271.         StrCopy(servicedesc, 'webtie : WebTIE')
  5272.     CASE 3343
  5273.         StrCopy(servicedesc, 'ms-cluster-net : MS Cluster Net')
  5274.     CASE 3344
  5275.         StrCopy(servicedesc, 'bnt-manager : BNT Manager')
  5276.     CASE 3345
  5277.         StrCopy(servicedesc, 'influence : Influence')
  5278.     CASE 3346
  5279.         StrCopy(servicedesc, 'trnsprntproxy : Trnsprnt Proxy')
  5280.     CASE 3347
  5281.         StrCopy(servicedesc, 'phoenix-rpc : Phoenix RPC')
  5282.     CASE 3348
  5283.         StrCopy(servicedesc, 'pangolin-laser : Pangolin Laser')
  5284.     CASE 3349
  5285.         StrCopy(servicedesc, 'chevinservices : Chevin Services')
  5286.     CASE 3350
  5287.         StrCopy(servicedesc, 'findviatv : FINDVIATV')
  5288.     CASE 3351
  5289.         StrCopy(servicedesc, 'btrieve : BTRIEVE')
  5290.     CASE 3352
  5291.         StrCopy(servicedesc, 'ssql : SSQL')
  5292.     CASE 3353
  5293.         StrCopy(servicedesc, 'fatpipe : FATPIPE')
  5294.     CASE 3354
  5295.         StrCopy(servicedesc, 'suitjd : SUITJD')
  5296.     CASE 3355
  5297.         StrCopy(servicedesc, 'ordinox-dbase : Ordinox Dbase')
  5298.     CASE 3356
  5299.         StrCopy(servicedesc, 'upnotifyps : UPNOTIFYPS')
  5300.     CASE 3357
  5301.         StrCopy(servicedesc, 'adtech-test : Adtech Test IP')
  5302.     CASE 3358
  5303.         StrCopy(servicedesc, 'mpsysrmsvr : Mp Sys Rmsvr')
  5304.     CASE 3359
  5305.         StrCopy(servicedesc, 'wg-netforce : WG NetForce')
  5306.     CASE 3360
  5307.         StrCopy(servicedesc, 'kv-server : KV Server')
  5308.     CASE 3361
  5309.         StrCopy(servicedesc, 'kv-agent : KV Agent ')
  5310.     CASE 3362
  5311.         StrCopy(servicedesc, 'dj-ilm : DJ ILM')
  5312.     CASE 3363
  5313.         StrCopy(servicedesc, 'nati-vi-server : NATI Vi Server')
  5314.     CASE 3364
  5315.         StrCopy(servicedesc, 'creativeserver : Creative Server')
  5316.     CASE 3365
  5317.         StrCopy(servicedesc, 'contentserver : Content Server')
  5318.     CASE 3366
  5319.         StrCopy(servicedesc, 'creativepartnr : Creative Partner')
  5320.     CASE 3367
  5321.         StrCopy(servicedesc, 'satvid-datalnk : Satellite Video Data Link')
  5322.     CASE 3368
  5323.         StrCopy(servicedesc, 'satvid-datalnk : Satellite Video Data Link')
  5324.     CASE 3369
  5325.         StrCopy(servicedesc, 'satvid-datalnk : Satellite Video Data Link')
  5326.     CASE 3370
  5327.         StrCopy(servicedesc, 'satvid-datalnk : Satellite Video Data Link')
  5328.     CASE 3371
  5329.         StrCopy(servicedesc, 'satvid-datalnk : Satellite Video Data Link')
  5330.     CASE 3372
  5331.         StrCopy(servicedesc, 'tip2 : TIP 2')
  5332.     CASE 3373
  5333.         StrCopy(servicedesc, 'lavenir-lm : Lavenir License Manager')
  5334.     CASE 3374
  5335.         StrCopy(servicedesc, 'cluster-disc : Cluster Disc')
  5336.     CASE 3375
  5337.         StrCopy(servicedesc, 'vsnm-agent : VSNM Agent')
  5338.     CASE 3376
  5339.         StrCopy(servicedesc, 'cdborker : CD Broker')
  5340.     CASE 3377
  5341.         StrCopy(servicedesc, 'cogsys-lm : Cogsys Network License Manager')
  5342.     CASE 3378
  5343.         StrCopy(servicedesc, 'wsicopy : WSICOPY')
  5344.     CASE 3379
  5345.         StrCopy(servicedesc, 'socorfs : SOCORFS')
  5346.     CASE 3380
  5347.         StrCopy(servicedesc, 'sns-channels : SNS Channels')
  5348.     CASE 3381
  5349.         StrCopy(servicedesc, 'geneous : Geneous')
  5350.     CASE 3382
  5351.         StrCopy(servicedesc, 'fujitsu-neat : Fujitsu Network Enhanced Antitheft function')
  5352.     CASE 3383
  5353.         StrCopy(servicedesc, 'esp-lm : Enterprise Software Products License Manager')
  5354.     CASE 3384
  5355.         StrCopy(servicedesc, 'hp-clic : Cluster Management Services')
  5356.     CASE 3385
  5357.         StrCopy(servicedesc, 'qnxnetman : qnxnetman')
  5358.     CASE 3386
  5359.         StrCopy(servicedesc, 'gprs-data : GPRS Data')
  5360.     CASE 3387
  5361.         StrCopy(servicedesc, 'backroomnet : Back Room Net')
  5362.     CASE 3388
  5363.         StrCopy(servicedesc, 'cbserver : CB Server')
  5364.     CASE 3389
  5365.         StrCopy(servicedesc, 'ms-wbt-server msrdp : MS WBT Server ; Microsoft Remote Display Protocol')
  5366.     CASE 3390
  5367.         StrCopy(servicedesc, 'dsc : Distributed Service Coordinator')
  5368.     CASE 3391
  5369.         StrCopy(servicedesc, 'savant : SAVANT')
  5370.     CASE 3392
  5371.         StrCopy(servicedesc, 'efi-lm : EFI License Management')
  5372.     CASE 3393
  5373.         StrCopy(servicedesc, 'd2k-tapestry1 : D2K Tapestry Client to Server')
  5374.     CASE 3394
  5375.         StrCopy(servicedesc, 'd2k-tapestry2 : D2K Tapestry Server to Server')
  5376.     CASE 3395
  5377.         StrCopy(servicedesc, 'dyna-lm : Dyna License Manager (Elam)')
  5378.     CASE 3396
  5379.         StrCopy(servicedesc, 'printer_agent : Printer Agent')
  5380.     CASE 3397
  5381.         StrCopy(servicedesc, 'cloanto-lm : Cloanto License Manager')
  5382.     CASE 3398
  5383.         StrCopy(servicedesc, 'mercantile : Mercantile')
  5384.     CASE 3399
  5385.         StrCopy(servicedesc, 'csms : CSMS')
  5386.     CASE 3400
  5387.         StrCopy(servicedesc, 'csms2 : CSMS2')
  5388.     CASE 3401
  5389.         StrCopy(servicedesc, 'filecast : filecast')
  5390.     CASE 3421
  5391.         StrCopy(servicedesc, 'bmap : Bull Apprise portmapper')
  5392.     CASE 3454
  5393.         StrCopy(servicedesc, 'mira : Apple Remote Access Protocol')
  5394.     CASE 3455
  5395.         StrCopy(servicedesc, 'prsvp : RSVP Port')
  5396.     CASE 3456
  5397.         StrCopy(servicedesc, 'vat : VAT default data')
  5398.     CASE 3457
  5399.         StrCopy(servicedesc, 'vat-control : VAT default control')
  5400.     CASE 3458
  5401.         StrCopy(servicedesc, 'd3winosfi : D3WinOsfi')
  5402.     CASE 3459
  5403.         StrCopy(servicedesc, 'integral : TIP Integral ; \eb[TROJANS=Eclipse 2000]\en')
  5404.     CASE 3460
  5405.         StrCopy(servicedesc, 'edm-manager : EDM Manger')
  5406.     CASE 3461
  5407.         StrCopy(servicedesc, 'edm-stager : EDM Stager')
  5408.     CASE 3462
  5409.         StrCopy(servicedesc, 'edm-std-notify track : EDM STD Notify ; Software Distribution')
  5410.     CASE 3463
  5411.         StrCopy(servicedesc, 'edm-adm-notify : EDM ADM Notify')
  5412.     CASE 3464
  5413.         StrCopy(servicedesc, 'edm-mgr-sync : EDM MGR Sync')
  5414.     CASE 3465
  5415.         StrCopy(servicedesc, 'edm-mgr-cntrl : EDM MGR Cntrl')
  5416.     CASE 3466
  5417.         StrCopy(servicedesc, 'workflow : WORKFLOW')
  5418.     CASE 3467
  5419.         StrCopy(servicedesc, 'rcst : RCST')
  5420.     CASE 3468
  5421.         StrCopy(servicedesc, 'ttcmremotectrl : TTCM Remote Controll')
  5422.     CASE 3469
  5423.         StrCopy(servicedesc, 'pluribus : Pluribus')
  5424.     CASE 3470
  5425.         StrCopy(servicedesc, 'jt400 : jt400')
  5426.     CASE 3471
  5427.         StrCopy(servicedesc, 'jt400-ssl : jt400-ssl')
  5428.     CASE 3535
  5429.         StrCopy(servicedesc, 'ms-la : MS-LA')
  5430.     CASE 3563
  5431.         StrCopy(servicedesc, 'watcomdebug : Watcom Debug')
  5432.     CASE 3672
  5433.         StrCopy(servicedesc, 'harlequinorb : harlequinorb')
  5434.     CASE 3700
  5435.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  5436.     CASE 3791
  5437.         StrCopy(servicedesc, '\eb[TROJANS=Eclypse]\en')
  5438.     CASE 3802
  5439.         StrCopy(servicedesc, 'vhd : VHD')
  5440.     CASE 3845
  5441.         StrCopy(servicedesc, 'v-one-spp : V-ONE Single Port Proxy')
  5442.     CASE 3862
  5443.         StrCopy(servicedesc, 'giga-pocket : GIGA-POCKET')
  5444.     CASE 3875
  5445.         StrCopy(servicedesc, 'pnbscada : PNBSCADA')
  5446.     CASE 3900
  5447.         StrCopy(servicedesc, 'udt_os : Unidata UDT OS')
  5448.     CASE 3984
  5449.         StrCopy(servicedesc, 'mapper-nodemgr : MAPPER network node manager')
  5450.     CASE 3985
  5451.         StrCopy(servicedesc, 'mapper-mapethd : MAPPER TCP/IP server')
  5452.     CASE 3986
  5453.         StrCopy(servicedesc, 'mapper-ws_ethd : MAPPER workstation server')
  5454.     CASE 3987
  5455.         StrCopy(servicedesc, 'centerline : Centerline')
  5456.     CASE 4000
  5457.         StrCopy(servicedesc, 'terabase : Terabase')
  5458.     CASE 4001
  5459.         StrCopy(servicedesc, 'newoak : NewOak')
  5460.     CASE 4002
  5461.         StrCopy(servicedesc, 'pxc-spvr-ft : pxc-spvr-ft')
  5462.     CASE 4003
  5463.         StrCopy(servicedesc, 'pxc-splr-ft : pxc-splr-ft')
  5464.     CASE 4004
  5465.         StrCopy(servicedesc, 'pxc-roid : pxc-roid')
  5466.     CASE 4005
  5467.         StrCopy(servicedesc, 'pxc-pin : pxc-pin')
  5468.     CASE 4006
  5469.         StrCopy(servicedesc, 'pxc-spvr : pxc-spvr')
  5470.     CASE 4007
  5471.         StrCopy(servicedesc, 'pxc-splr : pxc-splr')
  5472.     CASE 4008
  5473.         StrCopy(servicedesc, 'netcheque : NetCheque accounting ')
  5474.     CASE 4009
  5475.         StrCopy(servicedesc, 'chimera-hwm : Chimera HWM')
  5476.     CASE 4010
  5477.         StrCopy(servicedesc, 'samsung-unidex : Samsung Unidex')
  5478.     CASE 4011
  5479.         StrCopy(servicedesc, 'altserviceboot : Alternate Service Boot')
  5480.     CASE 4012
  5481.         StrCopy(servicedesc, 'pda-gate : PDA Gate')
  5482.     CASE 4013
  5483.         StrCopy(servicedesc, 'acl-manager : ACL Manager')
  5484.     CASE 4014
  5485.         StrCopy(servicedesc, 'taiclock : TAICLOCK')
  5486.     CASE 4015
  5487.         StrCopy(servicedesc, 'talarian-mcast1 : Talarian Mcast')
  5488.     CASE 4016
  5489.         StrCopy(servicedesc, 'talarian-mcast2 : Talarian Mcast')
  5490.     CASE 4017
  5491.         StrCopy(servicedesc, 'talarian-mcast3 : Talarian Mcast')
  5492.     CASE 4018
  5493.         StrCopy(servicedesc, 'talarian-mcast4 : Talarian Mcast')
  5494.     CASE 4019
  5495.         StrCopy(servicedesc, 'talarian-mcast5 : Talarian Mcast')
  5496.     CASE 4042
  5497.         StrCopy(servicedesc, 'ldxp : LDXP')
  5498.     CASE 4045
  5499.         StrCopy(servicedesc, 'lockd : NFS Lock daemon/manager')
  5500.     CASE 4092
  5501.         StrCopy(servicedesc, '\eb[TROJANS=WinCrash]\en')
  5502.     CASE 4096
  5503.         StrCopy(servicedesc, 'bre : BRE (Bridge Relay Element)')
  5504.     CASE 4097
  5505.         StrCopy(servicedesc, 'patrolview : Patrol View')
  5506.     CASE 4098
  5507.         StrCopy(servicedesc, 'drmsfsd : drmsfsd')
  5508.     CASE 4099
  5509.         StrCopy(servicedesc, 'dpcp : DPCP')
  5510.     CASE 4132
  5511.         StrCopy(servicedesc, 'nuts_dem : NUTS Daemon')
  5512.     CASE 4133
  5513.         StrCopy(servicedesc, 'nuts_bootp : NUTS Bootp Server')
  5514.     CASE 4134
  5515.         StrCopy(servicedesc, 'nifty-hmi : NIFTY-Serve HMI protocol')
  5516.     CASE 4141
  5517.         StrCopy(servicedesc, 'oirtgsvc : Workflow Server')
  5518.     CASE 4142
  5519.         StrCopy(servicedesc, 'oidocsvc : Document Server')
  5520.     CASE 4143
  5521.         StrCopy(servicedesc, 'oidsr : Document Replication')
  5522.     CASE 4144
  5523.         StrCopy(servicedesc, 'wincim : PC Windows Compuserve.com protocol')
  5524.     CASE 4160
  5525.         StrCopy(servicedesc, 'jini-discovery : Jini Discovery')
  5526.     CASE 4199
  5527.         StrCopy(servicedesc, 'eims-admin : EIMS ADMIN')
  5528.     CASE 4200
  5529.         StrCopy(servicedesc, 'vrml-multi-use : VRML Multi User Systems (Also ports 4201 to 4299')
  5530.     CASE 4300
  5531.         StrCopy(servicedesc, 'corelccam : Corel CCam')
  5532.     CASE 4321
  5533.         StrCopy(servicedesc, 'rwhois : Remote Who Is ; \eb[TROJANS=BoBo]\en')
  5534.     CASE 4333
  5535.         StrCopy(servicedesc, 'msql : Mini SQL Server')
  5536.     CASE 4343
  5537.         StrCopy(servicedesc, 'unicall : UNICALL')
  5538.     CASE 4344
  5539.         StrCopy(servicedesc, 'vinainstall : VinaInstall')
  5540.     CASE 4345
  5541.         StrCopy(servicedesc, 'm4-network-as : Macro 4 Network AS')
  5542.     CASE 4346
  5543.         StrCopy(servicedesc, 'elanlm : ELAN LM')
  5544.     CASE 4347
  5545.         StrCopy(servicedesc, 'lansurveyor : LAN Surveyor')
  5546.     CASE 4348
  5547.         StrCopy(servicedesc, 'itose : ITOSE')
  5548.     CASE 4349
  5549.         StrCopy(servicedesc, 'fsportmap : File System Port Map')
  5550.     CASE 4350
  5551.         StrCopy(servicedesc, 'net-device : Net Device')
  5552.     CASE 4351
  5553.         StrCopy(servicedesc, 'plcy-net-svcs : PLCY Net Services')
  5554.     CASE 4353
  5555.         StrCopy(servicedesc, 'f5-iquery : F5 iQuery ')
  5556.     CASE 4442
  5557.         StrCopy(servicedesc, 'saris : Saris')
  5558.     CASE 4443
  5559.         StrCopy(servicedesc, 'pharos : Pharos')
  5560.     CASE 4444
  5561.         StrCopy(servicedesc, 'krb524 nv-video : Kerberos 5 to 4 Ticket Xlator ; NV Video default')
  5562.     CASE 4445
  5563.         StrCopy(servicedesc, 'upnotifyp : UPNOTIFYP')
  5564.     CASE 4446
  5565.         StrCopy(servicedesc, 'n1-fwp : N1-FWP')
  5566.     CASE 4447
  5567.         StrCopy(servicedesc, 'n1-rmgmt : N1-RMGMT')
  5568.     CASE 4448
  5569.         StrCopy(servicedesc, 'asc-slmd : ASC Licence Manager')
  5570.     CASE 4449
  5571.         StrCopy(servicedesc, 'privatewire : PrivateWire')
  5572.     CASE 4450
  5573.         StrCopy(servicedesc, 'camp : Camp')
  5574.     CASE 4451
  5575.         StrCopy(servicedesc, 'ctisystemmsg : CTI System Msg')
  5576.     CASE 4452
  5577.         StrCopy(servicedesc, 'ctiprogramload : CTI Program Load')
  5578.     CASE 4453
  5579.         StrCopy(servicedesc, 'nssalertmgr : NSS Alert Manager')
  5580.     CASE 4454
  5581.         StrCopy(servicedesc, 'nssagentmgr : NSS Agent Manager')
  5582.     CASE 4455
  5583.         StrCopy(servicedesc, 'prchat-user : PR Chat User')
  5584.     CASE 4456
  5585.         StrCopy(servicedesc, 'prchat-server : PR Chat Server')
  5586.     CASE 4457
  5587.         StrCopy(servicedesc, 'prRegister : PR Register')
  5588.     CASE 4500
  5589.         StrCopy(servicedesc, 'sae-urn : sae-urn')
  5590.     CASE 4501
  5591.         StrCopy(servicedesc, 'urn-x-cdchoice : urn-x-cdchoice')
  5592.     CASE 4545
  5593.         StrCopy(servicedesc, 'worldscores : WorldScores')
  5594.     CASE 4546
  5595.         StrCopy(servicedesc, 'sf-lm : SF License Manager (Sentinel)')
  5596.     CASE 4547
  5597.         StrCopy(servicedesc, 'lanner-lm : Lanner License Manager')
  5598.     CASE 4557
  5599.         StrCopy(servicedesc, 'fax : FAX Transmission Service')
  5600.     CASE 4559
  5601.         StrCopy(servicedesc, 'hylafax : HylaFAX client-server protocol')
  5602.     CASE 4567
  5603.         StrCopy(servicedesc, 'tram : TRAM ; \eb[TROJANS=File Nail]\en')
  5604.     CASE 4568
  5605.         StrCopy(servicedesc, 'bmc-reporting : BMC Reporting ')
  5606.     CASE 4590
  5607.         StrCopy(servicedesc, '\eb[TROJANS=ICQTrojan]\en')
  5608.     CASE 4600
  5609.         StrCopy(servicedesc, 'piranha1 : Piranha1')
  5610.     CASE 4601
  5611.         StrCopy(servicedesc, 'piranha2 : Piranha2')
  5612.     CASE 4672
  5613.         StrCopy(servicedesc, 'rfa : remote file access server')
  5614.     CASE 4800
  5615.         StrCopy(servicedesc, 'iims : Icona Instant Messenging System')
  5616.     CASE 4801
  5617.         StrCopy(servicedesc, 'iwec : Icona Web Embedded Chat')
  5618.     CASE 4802
  5619.         StrCopy(servicedesc, 'ilss : Icona License System Server')
  5620.     CASE 4827
  5621.         StrCopy(servicedesc, 'htcp : HTCP')
  5622.     CASE 4837
  5623.         StrCopy(servicedesc, 'varadero-0 : Varadero-0')
  5624.     CASE 4838
  5625.         StrCopy(servicedesc, 'varadero-1 : Varadero-1')
  5626.     CASE 4868
  5627.         StrCopy(servicedesc, 'phrelay : Photon Relay')
  5628.     CASE 4869
  5629.         StrCopy(servicedesc, 'phrelaydbg : Photon Relay Debug')
  5630.     CASE 4885
  5631.         StrCopy(servicedesc, 'abbs : ABBS')
  5632.     CASE 4983
  5633.         StrCopy(servicedesc, 'att-intercom : AT&T Intercom')
  5634.     CASE 5000
  5635.         StrCopy(servicedesc, 'commplex-main : commplex-main ; \eb[Sockets de Troie, Bubbel, Back Door Setup, Socket23]\en ')
  5636.     CASE 5001
  5637.         StrCopy(servicedesc, 'commplex-link : commplex-link ; \eb[TROJANS=Sockets de Troie, Back Door Setup]\en ')
  5638.     CASE 5002
  5639.         StrCopy(servicedesc, 'rfe : Radio Free Ethernet')
  5640.     CASE 5003
  5641.         StrCopy(servicedesc, 'fmpro-internal : FileMaker, Inc. - Proprietary transport')
  5642.     CASE 5004
  5643.         StrCopy(servicedesc, 'avt-profile-1 : avt-profile-1')
  5644.     CASE 5005
  5645.         StrCopy(servicedesc, 'avt-profile-2 : avt-profile-2')
  5646.     CASE 5006
  5647.         StrCopy(servicedesc, 'wsm-server : wsm server')
  5648.     CASE 5007
  5649.         StrCopy(servicedesc, 'wsm-server-ssl : wsm server ssl')
  5650.     CASE 5010
  5651.         StrCopy(servicedesc, 'telelpathstart : TelepathStart')
  5652.     CASE 5011
  5653.         StrCopy(servicedesc, 'telelpathattack : TelepathAttack ; \eb[TROJANS=One of the Last Trojans (OOTLT)]\en')
  5654.     CASE 5020
  5655.         StrCopy(servicedesc, 'zenginkyo-1 : zenginkyo-1')
  5656.     CASE 5021
  5657.         StrCopy(servicedesc, 'zenginkyo-2 : zenginkyo-2')
  5658.     CASE 5031
  5659.         StrCopy(servicedesc, '\eb[TROJANS=NetMetro]\en')
  5660.     CASE 5042
  5661.         StrCopy(servicedesc, 'asnaacceler8db : asnaacceler8db')
  5662.     CASE 5050
  5663.         StrCopy(servicedesc, 'mmcc : multimedia conference control tool')
  5664.     CASE 5051
  5665.         StrCopy(servicedesc, 'ita-agent : ITA Agent')
  5666.     CASE 5052
  5667.         StrCopy(servicedesc, 'ita-manager : ITA Manager')
  5668.     CASE 5055
  5669.         StrCopy(servicedesc, 'unot : UNOT')
  5670.     CASE 5056
  5671.         StrCopy(servicedesc, 'intecom-ps1 : Intecom PS 1')
  5672.     CASE 5057
  5673.         StrCopy(servicedesc, 'intecom-ps2 : Intecom PS 2')
  5674.     CASE 5060
  5675.         StrCopy(servicedesc, 'sip : SIP')
  5676.     CASE 5061
  5677.         StrCopy(servicedesc, 'sip-tls : SIP-TLS')
  5678.     CASE 5066
  5679.         StrCopy(servicedesc, 'stanag-5066 : STANAG-5066-SUBNET-INTF')
  5680.     CASE 5069
  5681.         StrCopy(servicedesc, 'i-net-2000-npr : I/Net 2000-NPR')
  5682.     CASE 5071
  5683.         StrCopy(servicedesc, 'powerschool : PowerSchool')
  5684.     CASE 5093
  5685.         StrCopy(servicedesc, 'sentinel-lm : Sentinel LM')
  5686.     CASE 5099
  5687.         StrCopy(servicedesc, 'sentlm-srv2srv : SentLM Srv2Srv')
  5688.     CASE 5130
  5689.         StrCopy(servicedesc, 'sgi-dogfight : Silicon Graphics Dog Fight Game')
  5690.     CASE 5131
  5691.         StrCopy(servicedesc, 'sgi-arena : Silicon Graphics Arena')
  5692.     CASE 5133
  5693.         StrCopy(servicedesc, 'sgi-bznet : Silicon Graphocs port of BZ Demo')
  5694.     CASE 5135
  5695.         StrCopy(servicedesc, 'sgi-objectserver : Silicon Graphics Object Server')
  5696.     CASE 5136
  5697.         StrCopy(servicedesc, 'sgi-directoryserver : Silicon Graphics Directory Server')
  5698.     CASE 5137
  5699.         StrCopy(servicedesc, 'sgi-oortnet : Oort Port')
  5700.     CASE 5138
  5701.         StrCopy(servicedesc, 'sgi-vroom-server : Silicon Graphics Vroom Server')
  5702.     CASE 5139
  5703.         StrCopy(servicedesc, 'sgi-vroom-client : Silicon Graphics Vroom Client')
  5704.     CASE 5140
  5705.         StrCopy(servicedesc, 'sgi-mekton0 : Mekton Port')
  5706.     CASE 5141
  5707.         StrCopy(servicedesc, 'sgi-mekton1 : Mekton Port')
  5708.     CASE 5142
  5709.         StrCopy(servicedesc, 'sgi-mekton2 : Mekton Port')
  5710.     CASE 5143
  5711.         StrCopy(servicedesc, 'sgi-mekton3 : Mekton Port')
  5712.     CASE 5144
  5713.         StrCopy(servicedesc, 'sgi-mekton4 : Mekton Port')
  5714.     CASE 5145
  5715.         StrCopy(servicedesc, 'rmonitor_secure : RMONITOR SECURE ; sgi-mekton5 : Mekton Port')
  5716.     CASE 5146
  5717.         StrCopy(servicedesc, 'sgi-mekton6 : Mekton Port')
  5718.     CASE 5147
  5719.         StrCopy(servicedesc, 'sgi-mekton7 : Mekton Port')
  5720.     CASE 5150
  5721.         StrCopy(servicedesc, 'atmp : Ascend Tunnel Management Protocol ; sgi-pointblank : Silicon Graphics Pointblank')
  5722.     CASE 5151
  5723.         StrCopy(servicedesc, 'esri_sde : ESRI SDE Instance')
  5724.     CASE 5152
  5725.         StrCopy(servicedesc, 'sde-discovery : ESRI SDE Instance Discovery')
  5726.     CASE 5165
  5727.         StrCopy(servicedesc, 'ife_icorp : ife_1corp')
  5728.     CASE 5190
  5729.         StrCopy(servicedesc, 'aol : America-Online')
  5730.     CASE 5191
  5731.         StrCopy(servicedesc, 'aol-1 : AmericaOnline1')
  5732.     CASE 5192
  5733.         StrCopy(servicedesc, 'aol-2 : AmericaOnline2')
  5734.     CASE 5193
  5735.         StrCopy(servicedesc, 'aol-3 : AmericaOnline3')
  5736.     CASE 5200
  5737.         StrCopy(servicedesc, 'targus-getdata : TARGUS GetData ')
  5738.     CASE 5201
  5739.         StrCopy(servicedesc, 'targus-getdata1 : TARGUS GetData 1')
  5740.     CASE 5202
  5741.         StrCopy(servicedesc, 'targus-getdata2 : TARGUS GetData 2')
  5742.     CASE 5203
  5743.         StrCopy(servicedesc, 'targus-getdata3 : TARGUS GetData 3 ')
  5744.     CASE 5232
  5745.         StrCopy(servicedesc, 'sgi-dgl : Silicon Graphics Inc. Distributed Graphics')
  5746.     CASE 5236
  5747.         StrCopy(servicedesc, 'padl2sim : padl2sim ')
  5748.     CASE 5272
  5749.         StrCopy(servicedesc, 'pk : PK')
  5750.     CASE 5300
  5751.         StrCopy(servicedesc, 'hacl-hb : # HA cluster heartbeat')
  5752.     CASE 5301
  5753.         StrCopy(servicedesc, 'hacl-gs : # HA cluster general services')
  5754.     CASE 5302
  5755.         StrCopy(servicedesc, 'hacl-cfg : # HA cluster configuration')
  5756.     CASE 5303
  5757.         StrCopy(servicedesc, 'hacl-probe : # HA cluster probing')
  5758.     CASE 5304
  5759.         StrCopy(servicedesc, 'hacl-local : # HA Cluster Commands')
  5760.     CASE 5305
  5761.         StrCopy(servicedesc, 'hacl-test : # HA Cluster Test')
  5762.     CASE 5306
  5763.         StrCopy(servicedesc, 'sun-mc-grp : Sun MC Group')
  5764.     CASE 5307
  5765.         StrCopy(servicedesc, 'sco-aip : SCO AIP')
  5766.     CASE 5308
  5767.         StrCopy(servicedesc, 'cfengine : CFengine')
  5768.     CASE 5309
  5769.         StrCopy(servicedesc, 'jprinter : J Printer')
  5770.     CASE 5310
  5771.         StrCopy(servicedesc, 'outlaws : Outlaws')
  5772.     CASE 5311
  5773.         StrCopy(servicedesc, 'tmlogin : TM Login')
  5774.     CASE 5314
  5775.         StrCopy(servicedesc, 'opalis-rbt-ipc : opalis-rbt-ipc')
  5776.     CASE 5321
  5777.         StrCopy(servicedesc, '\eb[TROJANS=Firehotcker]\en')
  5778.     CASE 5354
  5779.         StrCopy(servicedesc, 'noclog : noclog (nocol)')
  5780.     CASE 5355
  5781.         StrCopy(servicedesc, 'hostmon : Hostmon')
  5782.     CASE 5400
  5783.         StrCopy(servicedesc, 'excerpt pcduo-old : Excerpt Search ; RemCon PC Duo - old port ; \eb[TROJANS=Blade Runner, BackContruction 1.2]\en')
  5784.     CASE 5401
  5785.         StrCopy(servicedesc, 'excerpts : Excerpt Search Secure ; \eb[TROJANS=Blade Runner]\en')
  5786.     CASE 5402
  5787.         StrCopy(servicedesc, 'mftp : MFTP')
  5788.     CASE 5403
  5789.         StrCopy(servicedesc, 'hpoms-ci-lstn : HPOMS-CI-LSTN')
  5790.     CASE 5404
  5791.         StrCopy(servicedesc, 'hpoms-dps-lstn : HPOMS-DPS-LSTN')
  5792.     CASE 5405
  5793.         StrCopy(servicedesc, 'netsupport pcduo : NetSupport ; RemCon PC Duo - new port')
  5794.     CASE 5406
  5795.         StrCopy(servicedesc, 'systemics-sox : Systemics Sox')
  5796.     CASE 5407
  5797.         StrCopy(servicedesc, 'foresyte-clear : Foresyte-Clear')
  5798.     CASE 5408
  5799.         StrCopy(servicedesc, 'foresyte-sec : Foresyte-Sec')
  5800.     CASE 5409
  5801.         StrCopy(servicedesc, 'salient-dtasrv : Salient Data Server')
  5802.     CASE 5410
  5803.         StrCopy(servicedesc, 'salient-usrmgr : Salient User Manager')
  5804.     CASE 5411
  5805.         StrCopy(servicedesc, 'actnet : ActNet')
  5806.     CASE 5412
  5807.         StrCopy(servicedesc, 'continuus : Continuus')
  5808.     CASE 5413
  5809.         StrCopy(servicedesc, 'wwiotalk : WWIOTALK')
  5810.     CASE 5414
  5811.         StrCopy(servicedesc, 'statusd : StatusD')
  5812.     CASE 5415
  5813.         StrCopy(servicedesc, 'ns-server : NS Server')
  5814.     CASE 5416
  5815.         StrCopy(servicedesc, 'sns-gateway : SNS Gateway')
  5816.     CASE 5417
  5817.         StrCopy(servicedesc, 'sns-agent : SNS Agent')
  5818.     CASE 5418
  5819.         StrCopy(servicedesc, 'mcntp : MCNTP')
  5820.     CASE 5419
  5821.         StrCopy(servicedesc, 'dj-ice : DJ-ICE')
  5822.     CASE 5420
  5823.         StrCopy(servicedesc, 'cylink-c : Cylink-C')
  5824.     CASE 5421
  5825.         StrCopy(servicedesc, 'netsupport2 : Net Support 2')
  5826.     CASE 5422
  5827.         StrCopy(servicedesc, 'salient-mux : Salient MUX')
  5828.     CASE 5423
  5829.         StrCopy(servicedesc, 'virtualuser : VIRTUALUSER')
  5830.     CASE 5426
  5831.         StrCopy(servicedesc, 'devbasic : DEVBASIC')
  5832.     CASE 5427
  5833.         StrCopy(servicedesc, 'sco-peer-tta : SCO-PEER-TTA')
  5834.     CASE 5428
  5835.         StrCopy(servicedesc, 'telaconsole : TELACONSOLE')
  5836.     CASE 5429
  5837.         StrCopy(servicedesc, 'base : Billing and Accounting System Exchange')
  5838.     CASE 5430
  5839.         StrCopy(servicedesc, 'radec-corp : RADEC CORP')
  5840.     CASE 5431
  5841.         StrCopy(servicedesc, 'park-agent : PARK AGENT')
  5842.     CASE 5432
  5843.         StrCopy(servicedesc, 'postgres : Postgres Database Server')
  5844.     CASE 5434
  5845.         StrCopy(servicedesc, 'sgi-arrayd : Silicon Graphics Array Services Daemon')
  5846.     CASE 5435
  5847.         StrCopy(servicedesc, 'dttl : Data Tunneling Transceiver Linking (DTTL)')
  5848.     CASE 5454
  5849.         StrCopy(servicedesc, 'apc-tcp-udp-4 : apc-tcp-udp-4')
  5850.     CASE 5455
  5851.         StrCopy(servicedesc, 'apc-tcp-udp-5 : apc-tcp-udp-5')
  5852.     CASE 5456
  5853.         StrCopy(servicedesc, 'apc-tcp-udp-6 : apc-tcp-udp-6')
  5854.     CASE 5461
  5855.         StrCopy(servicedesc, 'silkmeter : SILKMETER')
  5856.     CASE 5462
  5857.         StrCopy(servicedesc, 'ttl-publisher : TTL Publisher')
  5858.     CASE 5465
  5859.         StrCopy(servicedesc, 'netops-broker : NETOPS-BROKER')
  5860.     CASE 5500
  5861.         StrCopy(servicedesc, 'fcp-addr-srvr1 securid : fcp-addr-srvr1 ; SecurID')
  5862.     CASE 5501
  5863.         StrCopy(servicedesc, 'fcp-addr-srvr2 : fcp-addr-srvr2')
  5864.     CASE 5502
  5865.         StrCopy(servicedesc, 'fcp-srvr-inst1 : fcp-srvr-inst1')
  5866.     CASE 5503
  5867.         StrCopy(servicedesc, 'fcp-srvr-inst2 : fcp-srvr-inst2')
  5868.     CASE 5504
  5869.         StrCopy(servicedesc, 'fcp-cics-gw1 : fcp-cics-gw1')
  5870.     CASE 5510
  5871.         StrCopy(servicedesc, 'secureidprop : ACE Server')
  5872.     CASE 5512
  5873.         StrCopy(servicedesc, '\eb[TROJANS=Illusion Mailer]\en')
  5874.     CASE 5520
  5875.         StrCopy(servicedesc, 'sdlog : ACE Server')
  5876.     CASE 5530
  5877.         StrCopy(servicedesc, 'sdserv : ACE Server')
  5878.     CASE 5540
  5879.         StrCopy(servicedesc, 'sdreport : ACE Server')
  5880.     CASE 5550
  5881.         StrCopy(servicedesc, 'sdadmind : ACE Server ; \eb[TROJANS=Xtcp]\en')
  5882.     CASE 5554
  5883.         StrCopy(servicedesc, 'sgi-esphttp : SGI ESP HTTP')
  5884.     CASE 5555
  5885.         StrCopy(servicedesc, 'personal-agent rplay : Personal Agent ; sbm-comm : Space Boulders Game ; \eb[TROJANS=ServeMe]\en')
  5886.     CASE 5556
  5887.         StrCopy(servicedesc, '\eb[TROJANS=BO Facil]\en')
  5888.     CASE 5557
  5889.         StrCopy(servicedesc, '\eb[TROJANS=BO Facil]\en')
  5890.     CASE 5566
  5891.         StrCopy(servicedesc, 'udpplus : UDPPlus')
  5892.     CASE 5569
  5893.         StrCopy(servicedesc, '\eb[TROJANS=RoboHack]\en')
  5894.     CASE 5599
  5895.         StrCopy(servicedesc, 'esinstall : Enterprise Security Remote Install')
  5896.     CASE 5600
  5897.         StrCopy(servicedesc, 'esmmanager : Enterprise Security Manager')
  5898.     CASE 5601
  5899.         StrCopy(servicedesc, 'esmagent : Enterprise Security Agent')
  5900.     CASE 5602
  5901.         StrCopy(servicedesc, 'a1-msc : A1-MSC')
  5902.     CASE 5603
  5903.         StrCopy(servicedesc, 'a1-bs : A1-BS')
  5904.     CASE 5604
  5905.         StrCopy(servicedesc, 'a3-sdunode : A3-SDUNode')
  5906.     CASE 5605
  5907.         StrCopy(servicedesc, 'a4-sdunode : A4-SDUNode')
  5908.     CASE 5631
  5909.         StrCopy(servicedesc, 'pcanywheredata : PC Anywhere Remote Control (data)')
  5910.     CASE 5632
  5911.         StrCopy(servicedesc, 'pcanywherestat : PC Anywhere Remote Control (stat)')
  5912.     CASE 5678
  5913.         StrCopy(servicedesc, 'rrac : Remote Replication Agent Connection')
  5914.     CASE 5679
  5915.         StrCopy(servicedesc, 'dccm : Direct Cable Connect Manager')
  5916.     CASE 5680
  5917.         StrCopy(servicedesc, 'canna : Canna (japanese) input')
  5918.     CASE 5713
  5919.         StrCopy(servicedesc, 'proshareaudio : proshare conf audio')
  5920.     CASE 5714
  5921.         StrCopy(servicedesc, 'prosharevideo : proshare conf video')
  5922.     CASE 5715
  5923.         StrCopy(servicedesc, 'prosharedata : proshare conf data')
  5924.     CASE 5716
  5925.         StrCopy(servicedesc, 'prosharerequest : proshare conf request')
  5926.     CASE 5717
  5927.         StrCopy(servicedesc, 'prosharenotify : proshare conf notify')
  5928.     CASE 5729
  5929.         StrCopy(servicedesc, 'openmail : Openmail User Agent Layer')
  5930.     CASE 5741
  5931.         StrCopy(servicedesc, 'ida-discover1 : IDA Discover Port 1')
  5932.     CASE 5742
  5933.         StrCopy(servicedesc, 'ida-discover2 : IDA Discover Port 2 ; \eb[TROJANS=WinCrash]\en')
  5934.     CASE 5745
  5935.         StrCopy(servicedesc, 'fcopy-server : fcopy-server')
  5936.     CASE 5746
  5937.         StrCopy(servicedesc, 'fcopys-server : fcopys-server')
  5938.     CASE 5755
  5939.         StrCopy(servicedesc, 'openmailg : OpenMail Desk Gateway server')
  5940.     CASE 5757
  5941.         StrCopy(servicedesc, 'x500ms : OpenMail X.500 Directory Server')
  5942.     CASE 5766
  5943.         StrCopy(servicedesc, 'openmailns : OpenMail NewMail Server')
  5944.     CASE 5767
  5945.         StrCopy(servicedesc, 's-openmail : OpenMail Suer Agent Layer (Secure)')
  5946.     CASE 5768
  5947.         StrCopy(servicedesc, 'openmailpxy : OpenMail CMTS Server')
  5948.     CASE 5771
  5949.         StrCopy(servicedesc, 'netagent : NetAgent')
  5950.     CASE 5800
  5951.         StrCopy(servicedesc, 'vnc : VNC Remote Desktop Viewer')
  5952.     CASE 5801
  5953.         StrCopy(servicedesc, 'vnc : VNC Remote Desktop Viewer')
  5954.     CASE 5813
  5955.         StrCopy(servicedesc, 'icmpd : ICMPD')
  5956.     CASE 5859
  5957.         StrCopy(servicedesc, 'wherehoo : WHEREHOO')
  5958.     CASE 5900
  5959.         StrCopy(servicedesc, 'vnc : VNC (Remote Desktop Viewer)')
  5960.     CASE 5901
  5961.         StrCopy(servicedesc, 'vnc-1 : VNC Remote Desktop Viewer - Display 1')
  5962.     CASE 5902
  5963.         StrCopy(servicedesc, 'vnc-2 : VNC Remote Desktop Viewer - Display 2')
  5964.     CASE 5968
  5965.         StrCopy(servicedesc, 'mppolicy-v5 : mppolicy-v5')
  5966.     CASE 5969
  5967.         StrCopy(servicedesc, 'mppolicy-mgr : mppolicy-mgr')
  5968.     CASE 5977
  5969.         StrCopy(servicedesc, 'ncd-pref-tcp : NCD Preferences TCP port')
  5970.     CASE 5978
  5971.         StrCopy(servicedesc, 'ncd-diag-tcp : NCD Diagnostic TCP port')
  5972.     CASE 5979
  5973.         StrCopy(servicedesc, 'ncd-conf-rcp : NCD Configuration TCP port')
  5974.     CASE 5997
  5975.         StrCopy(servicedesc, 'ncd-pref : NCD Preferences telnet port')
  5976.     CASE 5998
  5977.         StrCopy(servicedesc, 'ncd-diag : NCD Diagnostic telnet port')
  5978.     CASE 5999
  5979.         StrCopy(servicedesc, 'cvsup ncd-conf : CVSup ; NCD Configuration telnet port')
  5980.     CASE 6000
  5981.         StrCopy(servicedesc, 'x11 : X Window System (Also ports 6001-6063)')
  5982.     CASE 6001
  5983.         StrCopy(servicedesc, 'x11:1 : X Window System (Also ports 6001-6063)')
  5984.     CASE 6002
  5985.         StrCopy(servicedesc, 'x11:2 : X Window System (Also ports 6001-6063)')
  5986.     CASE 6003
  5987.         StrCopy(servicedesc, 'x11:3 : X Window System (Also ports 6001-6063)')
  5988.     CASE 6004
  5989.         StrCopy(servicedesc, 'x11:4 : X Window System (Also ports 6001-6063)')
  5990.     CASE 6005
  5991.         StrCopy(servicedesc, 'x11:5 : X Window System (Also ports 6001-6063)')
  5992.     CASE 6006
  5993.         StrCopy(servicedesc, 'x11:6 : X Window System (Also ports 6001-6063)')
  5994.     CASE 6007
  5995.         StrCopy(servicedesc, 'x11:7 : X Window System (Also ports 6001-6063)')
  5996.     CASE 6008
  5997.         StrCopy(servicedesc, 'x11:8 : X Window System (Also ports 6001-6063)')
  5998.     CASE 6009
  5999.         StrCopy(servicedesc, 'x11:9 : X Window System (Also ports 6001-6063)')
  6000.     CASE 6050
  6001.         StrCopy(servicedesc, 'arcserver : ARCServe Backup Agent (possibly also X Window System)')
  6002.     CASE 6064
  6003.         StrCopy(servicedesc, 'ndl-ahp-svc : NDL-AHP-SVC')
  6004.     CASE 6065
  6005.         StrCopy(servicedesc, 'winpharaoh : WinPharaoh')
  6006.     CASE 6066
  6007.         StrCopy(servicedesc, 'ewctsp : EWCTSP')
  6008.     CASE 6067
  6009.         StrCopy(servicedesc, 'srb : SRB')
  6010.     CASE 6068
  6011.         StrCopy(servicedesc, 'gsmp : GSMP')
  6012.     CASE 6069
  6013.         StrCopy(servicedesc, 'trip : TRIP')
  6014.     CASE 6070
  6015.         StrCopy(servicedesc, 'messageasap : Messageasap')
  6016.     CASE 6071
  6017.         StrCopy(servicedesc, 'ssdtp : SSDTP')
  6018.     CASE 6072
  6019.         StrCopy(servicedesc, 'diagnose-proc : DIAGNOSE-PROC')
  6020.     CASE 6073
  6021.         StrCopy(servicedesc, 'directplay8 : DirectPlay8')
  6022.     CASE 6100
  6023.         StrCopy(servicedesc, 'synchronet-db : SynchroNet-db')
  6024.     CASE 6101
  6025.         StrCopy(servicedesc, 'synchronet-rtc : SynchroNet-rtc')
  6026.     CASE 6102
  6027.         StrCopy(servicedesc, 'synchronet-upd : SynchroNet-upd')
  6028.     CASE 6103
  6029.         StrCopy(servicedesc, 'rets : RETS')
  6030.     CASE 6104
  6031.         StrCopy(servicedesc, 'dbdb : DBDB')
  6032.     CASE 6105
  6033.         StrCopy(servicedesc, 'primaserver isdninfo : Prima Server ; ISDN Info')
  6034.     CASE 6106
  6035.         StrCopy(servicedesc, 'mpsserver : MPS Server')
  6036.     CASE 6107
  6037.         StrCopy(servicedesc, 'etc-control : ETC Control')
  6038.     CASE 6108
  6039.         StrCopy(servicedesc, 'sercomm-scadmin : Sercomm-SCAdmin')
  6040.     CASE 6109
  6041.         StrCopy(servicedesc, 'globecast-id : GLOBECAST-ID')
  6042.     CASE 6110
  6043.         StrCopy(servicedesc, 'softcm : HP SoftBench CM')
  6044.     CASE 6111
  6045.         StrCopy(servicedesc, 'spc : HP SoftBench Sub-Process Control')
  6046.     CASE 6112
  6047.         StrCopy(servicedesc, 'dtspcd : Common Desktop Environment subprocess control')
  6048.     CASE 6123
  6049.         StrCopy(servicedesc, 'backup-express : Backup Express')
  6050.     CASE 6141
  6051.         StrCopy(servicedesc, 'meta-corp : Meta Corporation License Manager')
  6052.     CASE 6142
  6053.         StrCopy(servicedesc, 'aspentec-lm : Aspen Technology License Manager')
  6054.     CASE 6143
  6055.         StrCopy(servicedesc, 'watershed-lm : Watershed License Manager')
  6056.     CASE 6144
  6057.         StrCopy(servicedesc, 'statsci1-lm : StatSci License Manager - 1')
  6058.     CASE 6145
  6059.         StrCopy(servicedesc, 'statsci2-lm : StatSci License Manager - 2')
  6060.     CASE 6146
  6061.         StrCopy(servicedesc, 'lonewolf-lm : Lone Wolf Systems License Manager')
  6062.     CASE 6147
  6063.         StrCopy(servicedesc, 'montage-lm : Montage License Manager')
  6064.     CASE 6148
  6065.         StrCopy(servicedesc, 'ricardo-lm : Ricardo North America License Manager')
  6066.     CASE 6149
  6067.         StrCopy(servicedesc, 'tal-pod : tal-pod ')
  6068.     CASE 6253
  6069.         StrCopy(servicedesc, 'crip : CRIP')
  6070.     CASE 6300
  6071.         StrCopy(servicedesc, 'bmc-grx : BMC GRX')
  6072.     CASE 6318
  6073.         StrCopy(servicedesc, 'dynamite : !Dynamite Game Server')
  6074.     CASE 6321
  6075.         StrCopy(servicedesc, 'emp-server1 : Empress Software Connectivity Server 1')
  6076.     CASE 6322
  6077.         StrCopy(servicedesc, 'emp-server2 : Empress Software Connectivity Server 2')
  6078.     CASE 6346
  6079.         StrCopy(servicedesc, 'gnutella-svc : gnutella-svc')
  6080.     CASE 6347
  6081.         StrCopy(servicedesc, 'gnutella-rtr : gnutella-rtr')
  6082.     CASE 6389
  6083.         StrCopy(servicedesc, 'clariion-evr01 : clariion-evr01')
  6084.     CASE 6400
  6085.         StrCopy(servicedesc, 'info-aps : info-aps ; \eb[TROJANS=The Thing]\en')
  6086.     CASE 6401
  6087.         StrCopy(servicedesc, 'info-was : info-was')
  6088.     CASE 6402
  6089.         StrCopy(servicedesc, 'info-eventsvr : info-eventsvr')
  6090.     CASE 6403
  6091.         StrCopy(servicedesc, 'info-cachesvr : info-cachesvr')
  6092.     CASE 6404
  6093.         StrCopy(servicedesc, 'info-filesvr : info-filesvr')
  6094.     CASE 6405
  6095.         StrCopy(servicedesc, 'info-pagesvr : info-pagesvr')
  6096.     CASE 6406
  6097.         StrCopy(servicedesc, 'info-processvr : info-processvr')
  6098.     CASE 6455
  6099.         StrCopy(servicedesc, 'skip-cert-recv : SKIP Certificate Receive')
  6100.     CASE 6456
  6101.         StrCopy(servicedesc, 'skip-cert-send : SKIP Certificate Send')
  6102.     CASE 6471
  6103.         StrCopy(servicedesc, 'lvision-lm : LVision License Manager')
  6104.     CASE 6500
  6105.         StrCopy(servicedesc, 'boks : BoKS Master')
  6106.     CASE 6501
  6107.         StrCopy(servicedesc, 'boks_servc : BoKS Servc')
  6108.     CASE 6502
  6109.         StrCopy(servicedesc, 'boks_servm netop-rc : BoKS Servm ; NetOP Remote Control')
  6110.     CASE 6503
  6111.         StrCopy(servicedesc, 'boks_clntd : BoKS Clntd')
  6112.     CASE 6505
  6113.         StrCopy(servicedesc, 'badm_priv : BoKS Admin Private Port')
  6114.     CASE 6506
  6115.         StrCopy(servicedesc, 'badm_pub : BoKS Admin Public Port')
  6116.     CASE 6507
  6117.         StrCopy(servicedesc, 'bdir_priv : BoKS Dir Server, Private Port')
  6118.     CASE 6508
  6119.         StrCopy(servicedesc, 'bdir_pub : BoKS Dir Server, Public Port')
  6120.     CASE 6547
  6121.         StrCopy(servicedesc, 'apc-tcp-udp-1 : apc-tcp-udp-1')
  6122.     CASE 6548
  6123.         StrCopy(servicedesc, 'apc-tcp-udp-2 : apc-tcp-udp-2')
  6124.     CASE 6549
  6125.         StrCopy(servicedesc, 'apc-tcp-udp-3 : apc-tcp-udp-3')
  6126.     CASE 6550
  6127.         StrCopy(servicedesc, 'fg-sysupdate : fg-sysupdate')
  6128.     CASE 6558
  6129.         StrCopy(servicedesc, 'xdsxdm : fg-sysupdate')
  6130.     CASE 6665
  6131.         StrCopy(servicedesc, 'ircu : IRCU')
  6132.     CASE 6666
  6133.         StrCopy(servicedesc, 'irc-serv : Internet Relay Chat Server')
  6134.     CASE 6667
  6135.         StrCopy(servicedesc, 'irc : Internet Relay Chat')
  6136.     CASE 6668
  6137.         StrCopy(servicedesc, 'irc : Internet Relay Chat')
  6138.     CASE 6669
  6139.         StrCopy(servicedesc, '\eb[TROJANS=Vampyre]\en')
  6140.     CASE 6670
  6141.         StrCopy(servicedesc, 'vocaltec-gold : Vocaltec Global Online Directory ; \eb[TROJANS=Deep Throat]\en')
  6142.     CASE 6672
  6143.         StrCopy(servicedesc, 'vision_server : vision_server')
  6144.     CASE 6673
  6145.         StrCopy(servicedesc, 'vision_elmd : vision_elmd')
  6146.     CASE 6674
  6147.         StrCopy(servicedesc, '\eb[TROJANS=Deep Throat]\en')
  6148.     CASE 6701
  6149.         StrCopy(servicedesc, 'kti-icad-srvr : KTI/ICAD Nameserver')
  6150.     CASE 6711
  6151.         StrCopy(servicedesc, '\eb[TROJANS=SubSeven]\en')
  6152.     CASE 6714
  6153.         StrCopy(servicedesc, 'ibprotocol : Internet Backplane Protocol')
  6154.     CASE 6767
  6155.         StrCopy(servicedesc, 'bmc-perf-agent : BMC PERFORM AGENT')
  6156.     CASE 6768
  6157.         StrCopy(servicedesc, 'bmc-perf-mgrd : BMC PERFORM MGRD')
  6158.     CASE 6771
  6159.         StrCopy(servicedesc, '\eb[TROJANS=Deep Throat]\en')
  6160.     CASE 6776
  6161.         StrCopy(servicedesc, '\eb[TROJANS=SubSeven]\en')
  6162.     CASE 6790
  6163.         StrCopy(servicedesc, 'hnmp : HNMP')
  6164.     CASE 6831
  6165.         StrCopy(servicedesc, 'ambit-lm : ambit-lm')
  6166.     CASE 6841
  6167.         StrCopy(servicedesc, 'netmo-default : Netmo Default')
  6168.     CASE 6842
  6169.         StrCopy(servicedesc, 'netmo-http : Netmo HTTP')
  6170.     CASE 6850
  6171.         StrCopy(servicedesc, 'iccrushmore : ICCRUSHMORE')
  6172.     CASE 6883
  6173.         StrCopy(servicedesc, '\eb[TROJANS=DeltaSource]\en')
  6174.     CASE 6888
  6175.         StrCopy(servicedesc, 'muse : MUSE')
  6176.     CASE 6912
  6177.         StrCopy(servicedesc, '\eb[TROJANS=ShitHeap]\en')
  6178.     CASE 6939
  6179.         StrCopy(servicedesc, '\eb[TROJANS=Indoctrination]\en')
  6180.     CASE 6961
  6181.         StrCopy(servicedesc, 'jmact3 : JMACT3')
  6182.     CASE 6962
  6183.         StrCopy(servicedesc, 'jmevt2 : jmevt2')
  6184.     CASE 6963
  6185.         StrCopy(servicedesc, 'swismgr1 : swismgr1')
  6186.     CASE 6964
  6187.         StrCopy(servicedesc, 'swismgr2 : swismgr2')
  6188.     CASE 6965
  6189.         StrCopy(servicedesc, 'swistrap : swistrap')
  6190.     CASE 6966
  6191.         StrCopy(servicedesc, 'swispol : swispol')
  6192.     CASE 6969
  6193.         StrCopy(servicedesc, 'acmsoda napster : acmsoda ; Napster MP3 Filesharing ; \eb[TROJANS=GateCrasher, IRC 3, Priority]\en')
  6194.     CASE 6970
  6195.         StrCopy(servicedesc, '\eb[TROJANS=GateCrasher]\en')
  6196.     CASE 6998
  6197.         StrCopy(servicedesc, 'iatp-highpri : IATP-highPri')
  6198.     CASE 6999
  6199.         StrCopy(servicedesc, 'iatp-normalpri : IATP-normalPri')
  6200.     CASE 7000
  6201.         StrCopy(servicedesc, 'afs3-fileserver : file server itself ; bbs : Bulletin Board System ; \eb[TROJANS=Remote Grab, Kazimas]\en')
  6202.  
  6203.  
  6204.     DEFAULT
  6205.         StrCopy(servicedesc, 'UNKNOWN')
  6206. ENDSELECT
  6207. ENDPROC
  6208.  
  6209.  
  6210. EXPORT PROC service12(portserv:LONG)
  6211.  
  6212. SELECT portserv
  6213.     CASE 7001
  6214.         StrCopy(servicedesc, 'afs3-callback : callbacks to cache managers ; mi-ray : Mental Images Mental Ray')
  6215.     CASE 7002
  6216.         StrCopy(servicedesc, 'afs3-prserver : users & groups database ; mi-ray2xsi : Mental Ray Softimage XSI')
  6217.     CASE 7003
  6218.         StrCopy(servicedesc, 'afs3-vlserver : volume location database ; mi-ray2soft3d39 : Mental Ray Softimage 3D 3.9')
  6219.     CASE 7004
  6220.         StrCopy(servicedesc, 'afs3-kaserver : AFS/Kerberos authentication service')
  6221.     CASE 7005
  6222.         StrCopy(servicedesc, 'afs3-volser : volume managment server')
  6223.     CASE 7006
  6224.         StrCopy(servicedesc, 'afs3-errors : error interpretation service')
  6225.     CASE 7007
  6226.         StrCopy(servicedesc, 'afs3-bos : basic overseer process')
  6227.     CASE 7008
  6228.         StrCopy(servicedesc, 'afs3-update : server-to-server updater')
  6229.     CASE 7009
  6230.         StrCopy(servicedesc, 'afs3-rmtsys : remote cache manager service')
  6231.     CASE 7010
  6232.         StrCopy(servicedesc, 'ups-onlinet : onlinet uninterruptable power supplies')
  6233.     CASE 7011
  6234.         StrCopy(servicedesc, 'talon-disc : Talon Discovery Port')
  6235.     CASE 7012
  6236.         StrCopy(servicedesc, 'talon-engine : Talon Engine')
  6237.     CASE 7013
  6238.         StrCopy(servicedesc, 'microtalon-dis : Microtalon Discovery')
  6239.     CASE 7014
  6240.         StrCopy(servicedesc, 'microtalon-com : Microtalon Communications')
  6241.     CASE 7015
  6242.         StrCopy(servicedesc, 'talon-webserver : Talon Webserver')
  6243.     CASE 7020
  6244.         StrCopy(servicedesc, 'dpserve : DP Serve')
  6245.     CASE 7021
  6246.         StrCopy(servicedesc, 'dpserveadmin : DP Serve Admin')
  6247.     CASE 7070
  6248.         StrCopy(servicedesc, 'arcp : ARCP ; realaudio ra : Progr. Tech. RealAudio')
  6249.     CASE 7099
  6250.         StrCopy(servicedesc, 'lazy-ptop : lazy-ptop')
  6251.     CASE 7100
  6252.         StrCopy(servicedesc, 'fs font-service : X Font Server')
  6253.     CASE 7121
  6254.         StrCopy(servicedesc, 'virprot-lm : Virtual Prototypes License Manager')
  6255.     CASE 7174
  6256.         StrCopy(servicedesc, 'clutild : Clutild')
  6257.     CASE 7200
  6258.         StrCopy(servicedesc, 'fodms : FODMS FLIP')
  6259.     CASE 7201
  6260.         StrCopy(servicedesc, 'dlip : DLIP')
  6261.     CASE 7280
  6262.         StrCopy(servicedesc, 'itactionserver1 : ITACTIONSERVER 1')
  6263.     CASE 7281
  6264.         StrCopy(servicedesc, 'itactionserver2 : ITACTIONSERVER 2')
  6265.     CASE 7300
  6266.         StrCopy(servicedesc, 'swx : The Swiss Exchange (Also on ports 7301 - 7390) ; \eb[TROJANS=NetMonitor]\en')
  6267.     CASE 7301
  6268.         StrCopy(servicedesc, '\eb[TROJANS=Net Monitor]\en')
  6269.     CASE 7306
  6270.         StrCopy(servicedesc, '\eb[TROJANS=Net Monitor]\en')
  6271.     CASE 7307
  6272.         StrCopy(servicedesc, '\eb[TROJANS=Net Monitor]\en')
  6273.     CASE 7308
  6274.         StrCopy(servicedesc, '\eb[TROJANS=Net Monitor]\en')
  6275.     CASE 7326
  6276.         StrCopy(servicedesc, 'icb : Internet Citizens Band')
  6277.     CASE 7391
  6278.         StrCopy(servicedesc, 'mindfilesys : mind-file system server')
  6279.     CASE 7392
  6280.         StrCopy(servicedesc, 'mrssrendezvous : mrss-rendezvous server')
  6281.     CASE 7395
  6282.         StrCopy(servicedesc, 'winqedit : winqedit')
  6283.     CASE 7426
  6284.         StrCopy(servicedesc, 'pmdmgr : OpenView DM Postmaster Manager')
  6285.     CASE 7427
  6286.         StrCopy(servicedesc, 'oveadmgr : OpenView DM Event Agent Manager')
  6287.     CASE 7428
  6288.         StrCopy(servicedesc, 'ovladmgr : OpenView DM Log Agent Manager')
  6289.     CASE 7429
  6290.         StrCopy(servicedesc, 'opi-sock : OpenView DM rqt communication')
  6291.     CASE 7430
  6292.         StrCopy(servicedesc, 'xmpv7 : OpenView DM xmpv7 api pipe')
  6293.     CASE 7431
  6294.         StrCopy(servicedesc, 'pmd : OpenView DM ovc/xmpv3 api pipe')
  6295.     CASE 7437
  6296.         StrCopy(servicedesc, 'faximum : Faximum')
  6297.     CASE 7491
  6298.         StrCopy(servicedesc, 'telops-lmd : telops-lmd')
  6299.     CASE 7511
  6300.         StrCopy(servicedesc, 'pafec-lm : pafec-lm')
  6301.     CASE 7544
  6302.         StrCopy(servicedesc, 'nta-ds : FlowAnalyzer DisplayServer')
  6303.     CASE 7545
  6304.         StrCopy(servicedesc, 'nta-us : FlowAnalyzer UtilityServer')
  6305.     CASE 7566
  6306.         StrCopy(servicedesc, 'vsi-omega : VSI Omega')
  6307.     CASE 7570
  6308.         StrCopy(servicedesc, 'aries-kfinder : Aries Kfinder')
  6309.     CASE 7588
  6310.         StrCopy(servicedesc, 'sun-lm : Sun License Manager')
  6311.     CASE 7597
  6312.         StrCopy(servicedesc, '\eb[TROJANS=Quaz Trojan Worm]\en')
  6313.     CASE 7633
  6314.         StrCopy(servicedesc, 'pmdfmgt : PMDF Management')
  6315.     CASE 7648
  6316.         StrCopy(servicedesc, 'cucme-1 : CUCME Live video/audio server')
  6317.     CASE 7649
  6318.         StrCopy(servicedesc, 'cucme-2 : CUCME Live video/audio server')
  6319.     CASE 7650
  6320.         StrCopy(servicedesc, 'cucme-3 : CUCME Live video/audio server')
  6321.     CASE 7651
  6322.         StrCopy(servicedesc, 'cucme-4 : CUCME Live video/audio server')
  6323.     CASE 7777
  6324.         StrCopy(servicedesc, 'cbt : cbt')
  6325.     CASE 7778
  6326.         StrCopy(servicedesc, 'interwise : Interwise')
  6327.     CASE 7779
  6328.         StrCopy(servicedesc, 'vstat : VSTAT')
  6329.     CASE 7781
  6330.         StrCopy(servicedesc, 'accu-lmgr : accu-lmgr')
  6331.     CASE 7786
  6332.         StrCopy(servicedesc, 'minivend : MINIVEND')
  6333.     CASE 7789
  6334.         StrCopy(servicedesc, '\eb[TROJANS=ICKiller, Back Door Setup]\en')
  6335.     CASE 7932
  6336.         StrCopy(servicedesc, 't2-drm : Tier 2 Data Resource Manager')
  6337.     CASE 7933
  6338.         StrCopy(servicedesc, 't2-brm : Tier 2 Business Rules Manager')
  6339.     CASE 7967
  6340.         StrCopy(servicedesc, 'supercell : Supercell')
  6341.     CASE 7979
  6342.         StrCopy(servicedesc, 'micromuse-ncps : Micromuse-ncps')
  6343.     CASE 7980
  6344.         StrCopy(servicedesc, 'quest-vista : Quest Vista')
  6345.     CASE 7999
  6346.         StrCopy(servicedesc, 'irdmi2 : iRDMI2')
  6347.     CASE 8000
  6348.         StrCopy(servicedesc, 'irdmi : iRDMI')
  6349.     CASE 8001
  6350.         StrCopy(servicedesc, 'vcom-tunnel : VCOM Tunnel')
  6351.     CASE 8002
  6352.         StrCopy(servicedesc, 'teradataordbms : Teradata ORDBMS')
  6353.     CASE 8007
  6354.         StrCopy(servicedesc, 'jserv : Apache JServe Protocol 1.x')
  6355.     CASE 8008
  6356.         StrCopy(servicedesc, 'http-alt : HTTP Alternate')
  6357.     CASE 8009
  6358.         StrCopy(servicedesc, 'ajp13 : Apache JServe Protocol 1.3')
  6359.     CASE 8022
  6360.         StrCopy(servicedesc, 'oa-system : oa-system')
  6361.     CASE 8032
  6362.         StrCopy(servicedesc, 'pro-ed : ProEd')
  6363.     CASE 8033
  6364.         StrCopy(servicedesc, 'mindprint : MindPrint')
  6365.     CASE 8080
  6366.         StrCopy(servicedesc, 'http-alt : HTTP Alternate (see port 80) ; webcache : WWW Caching Service ; \eb[TROJANS=RingZero]\en')
  6367.     CASE 8081
  6368.         StrCopy(servicedesc, 'tproxy blackice-icecap : Transparent Proxy ; ICECap user console')
  6369.     CASE 8082
  6370.         StrCopy(servicedesc, 'backice-alerts : Blackice Alerts sent here')
  6371.     CASE 8130
  6372.         StrCopy(servicedesc, 'indigo-vrmi : INDIGO-VRMI')
  6373.     CASE 8131
  6374.         StrCopy(servicedesc, 'indigo-vbcp : INDIGO-VBCP')
  6375.     CASE 8132
  6376.         StrCopy(servicedesc, 'dbabble : dbabble')
  6377.     CASE 8160
  6378.         StrCopy(servicedesc, 'patrol : Patrol')
  6379.     CASE 8161
  6380.         StrCopy(servicedesc, 'patrol-snmp : Patrol SNMP')
  6381.     CASE 8192
  6382.         StrCopy(servicedesc, 'sdss sdssd : FlashNet 5 Backup Client Service')
  6383.     CASE 8200
  6384.         StrCopy(servicedesc, 'trivnet1 : TRIVNET')
  6385.     CASE 8201
  6386.         StrCopy(servicedesc, 'trivnet2 : TRIVNET')
  6387.     CASE 8204
  6388.         StrCopy(servicedesc, 'lm-perfworks : LM Perfworks')
  6389.     CASE 8205
  6390.         StrCopy(servicedesc, 'lm-instmgr : LM Instmgr')
  6391.     CASE 8206
  6392.         StrCopy(servicedesc, 'lm-dta : LM Dta')
  6393.     CASE 8207
  6394.         StrCopy(servicedesc, 'lm-sserver : LM SServer')
  6395.     CASE 8208
  6396.         StrCopy(servicedesc, 'lm-webwatcher : LM Webwatcher')
  6397.     CASE 8351
  6398.         StrCopy(servicedesc, 'server-find : Server Find')
  6399.     CASE 8376
  6400.         StrCopy(servicedesc, 'cruise-enum : Cruise ENUM')
  6401.     CASE 8377
  6402.         StrCopy(servicedesc, 'cruise-swroute : Cruise SWROUTE')
  6403.     CASE 8378
  6404.         StrCopy(servicedesc, 'cruise-config : Cruise CONFIG')
  6405.     CASE 8379
  6406.         StrCopy(servicedesc, 'cruise-diags : Cruise DIAGS')
  6407.     CASE 8380
  6408.         StrCopy(servicedesc, 'cruise-update : Cruise UPDATE')
  6409.     CASE 8400
  6410.         StrCopy(servicedesc, 'cvd : cvd')
  6411.     CASE 8401
  6412.         StrCopy(servicedesc, 'sabarsd : sabarsd')
  6413.     CASE 8402
  6414.         StrCopy(servicedesc, 'abarsd : abarsd')
  6415.     CASE 8403
  6416.         StrCopy(servicedesc, 'admind : admind')
  6417.     CASE 8450
  6418.         StrCopy(servicedesc, 'npmp : npmp')
  6419.     CASE 8473
  6420.         StrCopy(servicedesc, 'vp2p : Virtual Point to Point')
  6421.     CASE 8554
  6422.         StrCopy(servicedesc, 'rtsp-alt : RTSP Alternate (see port 554)')
  6423.     CASE 8733
  6424.         StrCopy(servicedesc, 'ibus : iBus')
  6425.     CASE 8763
  6426.         StrCopy(servicedesc, 'mc-appserver : MC-APPSERVER')
  6427.     CASE 8764
  6428.         StrCopy(servicedesc, 'openqueue : OPENQUEUE')
  6429.     CASE 8765
  6430.         StrCopy(servicedesc, 'ultraseek-http : Ultraseek HTTP')
  6431.     CASE 8778
  6432.         StrCopy(servicedesc, 'wn-http : WhatsNew HTTP Protocol')
  6433.     CASE 8804
  6434.         StrCopy(servicedesc, 'truecm : truecm')
  6435.     CASE 8880
  6436.         StrCopy(servicedesc, 'cddbp-alt : CDDBP')
  6437.     CASE 8888
  6438.         StrCopy(servicedesc, 'ddi-tcp-1 sun-answerbook : NewsEDGE server TCP (TCP 1) ; Sun Answerbook HTTP server')
  6439.     CASE 8889
  6440.         StrCopy(servicedesc, 'ddi-tcp-2 : Desktop Data TCP 1')
  6441.     CASE 8890
  6442.         StrCopy(servicedesc, 'ddi-tcp-3 : Desktop Data TCP 2')
  6443.     CASE 8891
  6444.         StrCopy(servicedesc, 'ddi-tcp-4 : Desktop Data TCP 3: NESS application')
  6445.     CASE 8892
  6446.         StrCopy(servicedesc, 'ddi-tcp-5 seosload : Desktop Data TCP 4: FARM product ; Computer Associates ETrust ACX')
  6447.     CASE 8893
  6448.         StrCopy(servicedesc, 'ddi-tcp-6 : Desktop Data TCP 5: NewsEDGE/Web application')
  6449.     CASE 8894
  6450.         StrCopy(servicedesc, 'ddi-tcp-7 : Desktop Data TCP 6: COAL application')
  6451.     CASE 8900
  6452.         StrCopy(servicedesc, 'jmb-cds1 : JMB-CDS 1')
  6453.     CASE 8901
  6454.         StrCopy(servicedesc, 'jmb-cds2 : JMB-CDS 2')
  6455.     CASE 9000
  6456.         StrCopy(servicedesc, 'cslistener : CSlistener')
  6457.     CASE 9090
  6458.         StrCopy(servicedesc, 'websm zeus-admin : WebSM ; Zeus WWW Admin Server')
  6459.     CASE 9091
  6460.         StrCopy(servicedesc, 'xmltec-xmlmail : xmltec-xmlmail')
  6461.     CASE 9100
  6462.         StrCopy(servicedesc, 'jetdirect : HP Jet Direct Print Server')
  6463.     CASE 9111
  6464.         StrCopy(servicedesc, 'dragon : Dragon IDS Console')
  6465.     CASE 9160
  6466.         StrCopy(servicedesc, 'netlock1 : NetLOCK1')
  6467.     CASE 9161
  6468.         StrCopy(servicedesc, 'netlock2 : NetLOCK2')
  6469.     CASE 9162
  6470.         StrCopy(servicedesc, 'netlock3 : NetLOCK3')
  6471.     CASE 9163
  6472.         StrCopy(servicedesc, 'netlock4 : NetLOCK4')
  6473.     CASE 9164
  6474.         StrCopy(servicedesc, 'netlock5 : NetLOCK5')
  6475.     CASE 9200
  6476.         StrCopy(servicedesc, 'wap-wsp : WAP connectionless session service')
  6477.     CASE 9201
  6478.         StrCopy(servicedesc, 'wap-wsp-wtp : WAP session service')
  6479.     CASE 9202
  6480.         StrCopy(servicedesc, 'wap-wsp-s : WAP secure connectionless session service')
  6481.     CASE 9203
  6482.         StrCopy(servicedesc, 'wap-wsp-wtp-s : WAP secure session service')
  6483.     CASE 9204
  6484.         StrCopy(servicedesc, 'wap-vcard : WAP vCard')
  6485.     CASE 9205
  6486.         StrCopy(servicedesc, 'wap-vcal : WAP vCal')
  6487.     CASE 9206
  6488.         StrCopy(servicedesc, 'wap-vcard-s : WAP vCard Secure')
  6489.     CASE 9207
  6490.         StrCopy(servicedesc, 'wap-vcal-s : WAP vCal Secure')
  6491.     CASE 9283
  6492.         StrCopy(servicedesc, 'callwaveiam : CallWaveIAM')
  6493.     CASE 9292
  6494.         StrCopy(servicedesc, 'armtechdaemon : ArmTech Daemon')
  6495.     CASE 9321
  6496.         StrCopy(servicedesc, 'guibase : guibase')
  6497.     CASE 9343
  6498.         StrCopy(servicedesc, 'mpidcmgr : MpIdcMgr')
  6499.     CASE 9344
  6500.         StrCopy(servicedesc, 'mphlpdmc : Mphlpdmc')
  6501.     CASE 9346
  6502.         StrCopy(servicedesc, 'ctechlicensing : C Tech Licensing')
  6503.     CASE 9359
  6504.         StrCopy(servicedesc, 'mandelspawn mandelbrot : Network Mandelbrot')
  6505.     CASE 9374
  6506.         StrCopy(servicedesc, 'fjdmimgr : fjdmimgr')
  6507.     CASE 9396
  6508.         StrCopy(servicedesc, 'fjinvmgr : fjinvmgr')
  6509.     CASE 9400
  6510.         StrCopy(servicedesc, '\eb[TROJANS=InCommand]\en')
  6511.     CASE 9397
  6512.         StrCopy(servicedesc, 'mpidcagt : MpIdcAgt')
  6513.     CASE 9500
  6514.         StrCopy(servicedesc, 'ismserver : ismserver')
  6515.     CASE 9535
  6516.         StrCopy(servicedesc, 'mngsuite man : mngsuite ; man')
  6517.     CASE 9594
  6518.         StrCopy(servicedesc, 'msgsys : Message System')
  6519.     CASE 9595
  6520.         StrCopy(servicedesc, 'pds : Ping Discovery Service')
  6521.     CASE 9600
  6522.         StrCopy(servicedesc, 'micromuse-ncpw : MICROMUSE-NCPW')
  6523.     CASE 9753
  6524.         StrCopy(servicedesc, 'rasadv : rasadv')
  6525.     CASE 9872
  6526.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  6527.     CASE 9873
  6528.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  6529.     CASE 9874
  6530.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  6531.     CASE 9875
  6532.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  6533.     CASE 9876
  6534.         StrCopy(servicedesc, 'sd : Session Director ; \eb[TROJANS=Cyber Attacker]\en')
  6535.     CASE 9878
  6536.         StrCopy(servicedesc, '\eb[TROJANS=Transcout]\en')
  6537.     CASE 9888
  6538.         StrCopy(servicedesc, 'cyborg-systems : CYBORG Systems')
  6539.     CASE 9898
  6540.         StrCopy(servicedesc, 'monkeycom : MonkeyCom')
  6541.     CASE 9899
  6542.         StrCopy(servicedesc, 'sctp-tunneling : SCTP TUNNELING')
  6543.     CASE 9900
  6544.         StrCopy(servicedesc, 'iua : IUA')
  6545.     CASE 9909
  6546.         StrCopy(servicedesc, 'domaintime : domaintime')
  6547.     CASE 9950
  6548.         StrCopy(servicedesc, 'apcpcpluswin1 : APCPCPLUSWIN1')
  6549.     CASE 9951
  6550.         StrCopy(servicedesc, 'apcpcpluswin2 : APCPCPLUSWIN2')
  6551.     CASE 9952
  6552.         StrCopy(servicedesc, 'apcpcpluswin3 : APCPCPLUSWIN3')
  6553.     CASE 9989
  6554.         StrCopy(servicedesc, '\eb[TROJANS=iNi Killer]\en')
  6555.     CASE 9991
  6556.         StrCopy(servicedesc, 'issa : ISS System Scanner Agent')
  6557.     CASE 9992
  6558.         StrCopy(servicedesc, 'palace-1 issc : OnLive-1 ; ISS System Scanner Console')
  6559.     CASE 9993
  6560.         StrCopy(servicedesc, 'palace-2 : OnLive-2')
  6561.     CASE 9994
  6562.         StrCopy(servicedesc, 'palace-3 : OnLive-3')
  6563.     CASE 9995
  6564.         StrCopy(servicedesc, 'palace-4 : Palace-4')
  6565.     CASE 9996
  6566.         StrCopy(servicedesc, 'palace-5 : Palace-5')
  6567.     CASE 9997
  6568.         StrCopy(servicedesc, 'palace-6 : Palace-6')
  6569.     CASE 9998
  6570.         StrCopy(servicedesc, 'distinct32 : Distinct32')
  6571.     CASE 9999
  6572.         StrCopy(servicedesc, 'distinct : distinct ; \eb[TROJANS=The Prayer]\en')
  6573.     CASE 10000
  6574.         StrCopy(servicedesc, 'ndmp : Network Data Management Protocol')
  6575.     CASE 10005
  6576.         StrCopy(servicedesc, 'stel : Secure Telnet')
  6577.     CASE 10007
  6578.         StrCopy(servicedesc, 'mvs-capacity : MVS Capacity')
  6579.     CASE 10067
  6580.         StrCopy(servicedesc, '\eb[TROJANS=Portal of Doom]\en')
  6581.     CASE 10080
  6582.         StrCopy(servicedesc, 'amanda : Amanda Backup Services')
  6583.     CASE 10081
  6584.         StrCopy(servicedesc, 'kamanda : Amanda Backup Services via Kerberos')
  6585.     CASE 10082
  6586.         StrCopy(servicedesc, 'amandaidx : Amanda Backup Indexing Services')
  6587.     CASE 10083
  6588.         StrCopy(servicedesc, 'amidxtape : Amanda Backup Tape Indexing Services')
  6589.     CASE 10101
  6590.         StrCopy(servicedesc, '\eb[TROJANS=BrainSpy]\en')
  6591.     CASE 10113
  6592.         StrCopy(servicedesc, 'netiq-endpoint : NetIQ Endpoint')
  6593.     CASE 10114
  6594.         StrCopy(servicedesc, 'netiq-qcheck : NetIQ Qcheck')
  6595.     CASE 10115
  6596.         StrCopy(servicedesc, 'netiq-endpt : NetIQ Endpoint')
  6597.     CASE 10128
  6598.         StrCopy(servicedesc, 'bmc-perf-sd : BMC-PERFORM-SERVICE DAEMON')
  6599.     CASE 10288
  6600.         StrCopy(servicedesc, 'blocks : Blocks')
  6601.     CASE 10520
  6602.         StrCopy(servicedesc, '\eb[TROJANS=Acid Shivers]\en')
  6603.     CASE 10607
  6604.         StrCopy(servicedesc, '\eb[TROJANS=Coma]\en')
  6605.     CASE 10646
  6606.         StrCopy(servicedesc, '\eb[TROJANS=Lion Worm]\en')
  6607.     CASE 11000
  6608.         StrCopy(servicedesc, 'irisa : IRISA ; \eb[TROJANS=Senna Spy Trojans]\en')
  6609.     CASE 11001
  6610.         StrCopy(servicedesc, 'metasys : Metasys')
  6611.     CASE 11111
  6612.         StrCopy(servicedesc, 'vce : Viral Computing Environment (VCE)')
  6613.     CASE 11201
  6614.         StrCopy(servicedesc, 'smsqp : smsqp')
  6615.     CASE 11223
  6616.         StrCopy(servicedesc, '\eb[TROJANS=Progenic Trojan]\en')
  6617.     CASE 11319
  6618.         StrCopy(servicedesc, 'imip : IMIP')
  6619.     CASE 11367
  6620.         StrCopy(servicedesc, 'atm-uhas : ATM UHAS')
  6621.     CASE 11371
  6622.         StrCopy(servicedesc, 'pksd : PGP Public Key Server')
  6623.     CASE 11720
  6624.         StrCopy(servicedesc, 'h323callsigalt : h323 Call Signal Alternate')
  6625.     CASE 12000
  6626.         StrCopy(servicedesc, 'entextxid cce4x : IBM Enterprise Extender SNA XID Exchange ; Clear Commerce Engine 4.x')
  6627.     CASE 12001
  6628.         StrCopy(servicedesc, 'entextnetwk : IBM Enterprise Extender SNA COS Network Priority')
  6629.     CASE 12002
  6630.         StrCopy(servicedesc, 'entexthigh : IBM Enterprise Extender SNA COS High Priority')
  6631.     CASE 12003
  6632.         StrCopy(servicedesc, 'entextmed : IBM Enterprise Extender SNA COS Medium Priority')
  6633.     CASE 12004
  6634.         StrCopy(servicedesc, 'entextlow : IBM Enterprise Extender SNA COS Low Priority')
  6635.     CASE 12076
  6636.         StrCopy(servicedesc, '\eb[TROJANS=Gjamer]\en')
  6637.     CASE 12172
  6638.         StrCopy(servicedesc, 'hivep : HiveP')
  6639.     CASE 12223
  6640.         StrCopy(servicedesc, '\eb[TROJANS=Hack 99 Keylogger]\en')
  6641.     CASE 12345
  6642.         StrCopy(servicedesc, '\eb[TROJANS=GabanBus, Netbus 1.x, Pie Bill Gates, X Bill]\en')
  6643.     CASE 12346
  6644.         StrCopy(servicedesc, '\eb[TROJANS=GabanBus, Netbus 1.x (avoiding NetBust), X Bill]\en')
  6645.     CASE 12361
  6646.         StrCopy(servicedesc, '\eb[TROJANS=Whack a Mole]\en')
  6647.     CASE 12362
  6648.         StrCopy(servicedesc, '\eb[TROJANS=Whack a Mole]\en')
  6649.     CASE 12631
  6650.         StrCopy(servicedesc, '\eb[TROJANS=WhackJob]\en')
  6651.     CASE 12753
  6652.         StrCopy(servicedesc, 'tsaf : tsaf port')
  6653.     CASE 13000
  6654.         StrCopy(servicedesc, '\eb[TROJANS=Senna Spy Trojan]\en')
  6655.     CASE 13160
  6656.         StrCopy(servicedesc, 'i-zipqd : I-ZIPQD')
  6657.     CASE 13223
  6658.         StrCopy(servicedesc, 'powwow-client : PowWow Client')
  6659.     CASE 13224
  6660.         StrCopy(servicedesc, 'powwow-server : PowWow Server')
  6661.     CASE 13720
  6662.         StrCopy(servicedesc, 'bprd : BPRD Protocol (VERITAS NetBackup)')
  6663.     CASE 13721
  6664.         StrCopy(servicedesc, 'bpbrm : BPBRM Protocol (VERITAS NetBackup)')
  6665.     CASE 13722
  6666.         StrCopy(servicedesc, 'bpjava-msvc : BP Java MSVC Protocol')
  6667.     CASE 13782
  6668.         StrCopy(servicedesc, 'bpcd : VERITAS NetBackup')
  6669.     CASE 13783
  6670.         StrCopy(servicedesc, 'vopied : VOPIED Protnocol')
  6671.     CASE 13818
  6672.         StrCopy(servicedesc, 'dsmcc-config : DSMCC Config')
  6673.     CASE 13819
  6674.         StrCopy(servicedesc, 'dsmcc-session : DSMCC Session Messages')
  6675.     CASE 13820
  6676.         StrCopy(servicedesc, 'dsmcc-passthru : DSMCC Pass-Thru Messages')
  6677.     CASE 13821
  6678.         StrCopy(servicedesc, 'dsmcc-download : DSMCC Download Protocol')
  6679.     CASE 13822
  6680.         StrCopy(servicedesc, 'dsmcc-ccp : DSMCC Channel Change Protocol')
  6681.     CASE 14001
  6682.         StrCopy(servicedesc, 'itu-sccp-ss7 : ITU SCCP (SS7)')
  6683.     CASE 14936
  6684.         StrCopy(servicedesc, 'hde-lcesrvr-1 : hde-lcesrvr-1')
  6685.     CASE 14937
  6686.         StrCopy(servicedesc, 'hde-lcesrvr-2 : hde-lcesrvr-2')
  6687.     CASE 16360
  6688.         StrCopy(servicedesc, 'netserialext1 : netserialext1')
  6689.     CASE 16361
  6690.         StrCopy(servicedesc, 'netserialext2 : netserialext2')
  6691.     CASE 16367
  6692.         StrCopy(servicedesc, 'netserialext3 : netserialext3')
  6693.     CASE 16368
  6694.         StrCopy(servicedesc, 'netserialext4 : netserialext4')
  6695.     CASE 16969
  6696.         StrCopy(servicedesc, '\eb[TROJANS=Priority]\en')
  6697.     CASE 16991
  6698.         StrCopy(servicedesc, 'intel-rci-mp : INTEL-RCI-MP')
  6699.     CASE 17007
  6700.         StrCopy(servicedesc, 'isode-dua : isode-dua')
  6701.     CASE 17185
  6702.         StrCopy(servicedesc, 'soundsvirtual : Sounds Virtual')
  6703.     CASE 17219
  6704.         StrCopy(servicedesc, 'chipper : Chipper')
  6705.     CASE 17300
  6706.         StrCopy(servicedesc, '\eb[TROJANS=Kuang2 the Virus]\en')
  6707.     CASE 18000
  6708.         StrCopy(servicedesc, 'biimenu : Beckman Instruments, Inc.')
  6709.     CASE 18181
  6710.         StrCopy(servicedesc, 'opsec-cvp : OPSEC CVP')
  6711.     CASE 18182
  6712.         StrCopy(servicedesc, 'opsec-ufp : OPSEC UFP')
  6713.     CASE 18183
  6714.         StrCopy(servicedesc, 'opsec-sam : OPSEC SAM')
  6715.     CASE 18184
  6716.         StrCopy(servicedesc, 'opsec-lea : OPSEC LEA')
  6717.     CASE 18185
  6718.         StrCopy(servicedesc, 'opsec-omi : OPSEC OMI')
  6719.     CASE 18187
  6720.         StrCopy(servicedesc, 'opsec-ela : OPSEC ELA')
  6721.     CASE 18463
  6722.         StrCopy(servicedesc, 'ac-cluster : AC Cluster')
  6723.     CASE 18888
  6724.         StrCopy(servicedesc, 'apc-necmp : APCNECMP ')
  6725.     CASE 19191
  6726.         StrCopy(servicedesc, 'opsec-uaa : opsec-uaa')
  6727.     CASE 19283
  6728.         StrCopy(servicedesc, 'keysrvr : Key Server for SASSAFRAS')
  6729.     CASE 19315
  6730.         StrCopy(servicedesc, 'keyshadow : Key Shadow for SASSAFRAS')
  6731.     CASE 19410
  6732.         StrCopy(servicedesc, 'hp-sco : hp-sco')
  6733.     CASE 19411
  6734.         StrCopy(servicedesc, 'hp-sca : hp-sca')
  6735.     CASE 19412
  6736.         StrCopy(servicedesc, 'hp-sessmon : HP-SESSMON')
  6737.     CASE 19541
  6738.         StrCopy(servicedesc, 'jcp : JCP Client')
  6739.     CASE 20000
  6740.         StrCopy(servicedesc, 'dnp : DNP ; \eb[TROJANS=Millennium]\en')
  6741.     CASE 20001
  6742.         StrCopy(servicedesc, '\eb[TROJANS=Millennium]\en')
  6743.     CASE 20005
  6744.         StrCopy(servicedesc, 'btx : xcept4 (Interacrs with Deutsche Telekoms CEPT videotext)')
  6745.     CASE 20011
  6746.         StrCopy(servicedesc, 'isdn : ISDN Logging System')
  6747.     CASE 20012
  6748.         StrCopy(servicedesc, 'vboxd : Voice Box System')
  6749.     CASE 20034
  6750.         StrCopy(servicedesc, '\eb[TROJANS=Netbus 2 Pro]\en')
  6751.     CASE 20203
  6752.         StrCopy(servicedesc, '\eb[TROJANS=Logged]\en')
  6753.     CASE 20222
  6754.         StrCopy(servicedesc, 'ipulse-ics : iPulse-ICS')
  6755.     CASE 20331
  6756.         StrCopy(servicedesc, '\eb[TROJANS=Bla]\en')
  6757.     CASE 20670
  6758.         StrCopy(servicedesc, 'track : Track')
  6759.     CASE 20999
  6760.         StrCopy(servicedesc, 'athand-mmp : At Hand MMP')
  6761.     CASE 21554
  6762.         StrCopy(servicedesc, '\eb[TROJANS=Girlfriend, Schwindler 1.82]\en')
  6763.     CASE 21590
  6764.         StrCopy(servicedesc, 'vofr-gateway : VoFR Gateway')
  6765.     CASE 21845
  6766.         StrCopy(servicedesc, 'webphone : webphone')
  6767.     CASE 21846
  6768.         StrCopy(servicedesc, 'netspeak-is : NetSpeak Corp. Directory Services')
  6769.     CASE 21847
  6770.         StrCopy(servicedesc, 'netspeak-cs : NetSpeak Corp. Connection Services')
  6771.     CASE 21848
  6772.         StrCopy(servicedesc, 'netspeak-acd : NetSpeak Corp. Automatic Call Distribution')
  6773.     CASE 21849
  6774.         StrCopy(servicedesc, 'netspeak-cps : NetSpeak Corp. Credit Processing System')
  6775.     CASE 22000
  6776.         StrCopy(servicedesc, 'snapenetio : SNAPenetIO')
  6777.     CASE 22001
  6778.         StrCopy(servicedesc, 'optocontrol : OptoControl')
  6779.     CASE 22222
  6780.         StrCopy(servicedesc, '\eb[TROJANS=Prosiak]\en')
  6781.     CASE 22273
  6782.         StrCopy(servicedesc, 'wnn6 : wnn6 (Japanese Input)')
  6783.     CASE 22289
  6784.         StrCopy(servicedesc, 'wnn6_Cn : Wnn6 (Chinese Input)')
  6785.     CASE 22305
  6786.         StrCopy(servicedesc, 'wnn6_Kr : Wnn6 (Korean Input)')
  6787.     CASE 22321
  6788.         StrCopy(servicedesc, 'wnn6_Tw : Wnn6 (Taiwanese Input)')
  6789.     CASE 22370
  6790.         StrCopy(servicedesc, 'hpnpd : Hewlett Packard Network Printer')
  6791.     CASE 22555
  6792.         StrCopy(servicedesc, 'vocaltec-wconf : Vocaltec Web Conference')
  6793.     CASE 22800
  6794.         StrCopy(servicedesc, 'aws-brf : Telerate Information Platform LAN')
  6795.     CASE 22951
  6796.         StrCopy(servicedesc, 'brf-gw : Telerate Information Platform WAN')
  6797.     CASE 23456
  6798.         StrCopy(servicedesc, '\eb[TROJANS=Evil FTP, Ugly FTP, WhackJob]\en')
  6799.     CASE 23476
  6800.         StrCopy(servicedesc, '\eb[TROJANS=Donald Dick]\en')
  6801.     CASE 23477
  6802.         StrCopy(servicedesc, '\eb[TROJANS=Donald Dick]\en')
  6803.     CASE 24000
  6804.         StrCopy(servicedesc, 'med-ltp : med-ltp')
  6805.     CASE 24001
  6806.         StrCopy(servicedesc, 'med-fsp-rx : med-fsp-rx')
  6807.     CASE 24002
  6808.         StrCopy(servicedesc, 'med-fsp-tx : med-fsp-tx')
  6809.     CASE 24003
  6810.         StrCopy(servicedesc, 'med-supp : med-supp')
  6811.     CASE 24004
  6812.         StrCopy(servicedesc, 'med-ovw : med-ovw')
  6813.     CASE 24005
  6814.         StrCopy(servicedesc, 'med-ci : med-ci')
  6815.     CASE 24006
  6816.         StrCopy(servicedesc, 'med-net-svc : med-net-svc')
  6817.     CASE 24242
  6818.         StrCopy(servicedesc, 'filesphere : fileSphere')
  6819.     CASE 24386
  6820.         StrCopy(servicedesc, 'intel_rci : Intel RCI')
  6821.     CASE 24554
  6822.         StrCopy(servicedesc, 'binkp : Binkley')
  6823.     CASE 24677
  6824.         StrCopy(servicedesc, 'flashfiler : FlashFiler')
  6825.     CASE 25000
  6826.         StrCopy(servicedesc, 'icl-twobase1 : icl-twobase1')
  6827.     CASE 25001
  6828.         StrCopy(servicedesc, 'icl-twobase2 : icl-twobase2')
  6829.     CASE 25002
  6830.         StrCopy(servicedesc, 'icl-twobase3 : icl-twobase3')
  6831.     CASE 25003
  6832.         StrCopy(servicedesc, 'icl-twobase4 : icl-twobase4')
  6833.     CASE 25004
  6834.         StrCopy(servicedesc, 'icl-twobase5 : icl-twobase5')
  6835.     CASE 25005
  6836.         StrCopy(servicedesc, 'icl-twobase6 : icl-twobase6')
  6837.     CASE 25006
  6838.         StrCopy(servicedesc, 'icl-twobase7 : icl-twobase7')
  6839.     CASE 25007
  6840.         StrCopy(servicedesc, 'icl-twobase8 : icl-twobase8')
  6841.     CASE 25008
  6842.         StrCopy(servicedesc, 'icl-twobase9 : icl-twobase9')
  6843.     CASE 25009
  6844.         StrCopy(servicedesc, 'icl-twobase10 : icl-twobase10')
  6845.     CASE 25793
  6846.         StrCopy(servicedesc, 'vocaltec-hos : Vocaltec Address Server')
  6847.     CASE 26000
  6848.         StrCopy(servicedesc, 'quake : Quake Game Server')
  6849.     CASE 26208
  6850.         StrCopy(servicedesc, 'wnn6-ds : wnn6 DServer')
  6851.     CASE 26262
  6852.         StrCopy(servicedesc, 'k3software-svr : K3 Software-Server')
  6853.     CASE 26262
  6854.         StrCopy(servicedesc, 'k3software-svr : K3 Software-Server')
  6855.     CASE 26264
  6856.         StrCopy(servicedesc, 'gserver : Gserver')
  6857.     CASE 27000
  6858.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6859.     CASE 27001
  6860.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6861.     CASE 27002
  6862.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6863.     CASE 27003
  6864.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6865.     CASE 27004
  6866.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6867.     CASE 27005
  6868.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6869.     CASE 27006
  6870.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6871.     CASE 27007
  6872.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6873.     CASE 27008
  6874.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6875.     CASE 27009
  6876.         StrCopy(servicedesc, 'flex-lm : FLEX License Manager')
  6877.     CASE 27345
  6878.         StrCopy(servicedesc, 'imagepump : ImagePump')
  6879.     CASE 27374
  6880.         StrCopy(servicedesc, 'asp : Address Search Protocol')
  6881.     CASE 27444
  6882.         StrCopy(servicedesc, 'trinoo_bcast : Trinoo Distributed Attack Tool Master')
  6883.     CASE 27665
  6884.         StrCopy(servicedesc, 'trinoo_master : Trinoo Distributed Attack Tool master server')
  6885.     CASE 27960
  6886.         StrCopy(servicedesc, 'quake3 : Quake 3 Game Server')
  6887.     CASE 27999
  6888.         StrCopy(servicedesc, 'tw-auth-key : TW Authentication/Key Distribution')
  6889.     CASE 30029
  6890.         StrCopy(servicedesc, '\eb[TROJANS=AOL Trojan]\en')
  6891.     CASE 30100
  6892.         StrCopy(servicedesc, '\eb[TROJANS=NetSphere 1.27a/1.29/1.31]\en')
  6893.     CASE 30101
  6894.         StrCopy(servicedesc, '\eb[TROJANS=NetSphere 1.27a/1.29/1.31]\en')
  6895.     CASE 30102
  6896.         StrCopy(servicedesc, '\eb[TROJANS=NetSphere 1.27a/1.29/1.31]\en')
  6897.     CASE 30103
  6898.         StrCopy(servicedesc, '\eb[TROJANS=NetSphere 1.31]\en')
  6899.     CASE 30303
  6900.         StrCopy(servicedesc, '\eb[TROJANS=Socket25, Sockets de Troie]\en')
  6901.     CASE 30999
  6902.         StrCopy(servicedesc, '\eb[TROJANS=Kuang]\en')
  6903.     CASE 31335
  6904.         StrCopy(servicedesc, 'trinoo_register : Trinoo Distributed Attack Tool Registration Port')
  6905.     CASE 31336
  6906.         StrCopy(servicedesc, '\eb[TROJANS=BOWhack]\en')
  6907.     CASE 31337
  6908.         StrCopy(servicedesc, '\eb[TROJANS=Back Orifice, BO Facil, Baron Night, Elite]\en')
  6909.     CASE 31338
  6910.         StrCopy(servicedesc, '\eb[TROJANS=NetSpy DK]\en')
  6911.     CASE 31339
  6912.         StrCopy(servicedesc, '\eb[TROJANS=NetSpy DK]\en')
  6913.     CASE 31666
  6914.         StrCopy(servicedesc, '\eb[TROJANS=BOWhack]\en')
  6915.     CASE 31780
  6916.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6917.     CASE 31785
  6918.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6919.     CASE 31787
  6920.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6921.     CASE 31788
  6922.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6923.     CASE 31789
  6924.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6925.     CASE 31790
  6926.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6927.     CASE 31791
  6928.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6929.     CASE 31792
  6930.         StrCopy(servicedesc, '\eb[TROJANS=Hack a Tack]\en')
  6931.     CASE 32768
  6932.         StrCopy(servicedesc, 'filenet-tms : Filenet TMS')
  6933.     CASE 32769
  6934.         StrCopy(servicedesc, 'filenet-rpc : Filenet RPC ; sgi_iphone : Silicon Graphics InPerson Phone')
  6935.     CASE 32770
  6936.         StrCopy(servicedesc, 'filenet-nch sun-rpc : Filenet NCH ; Sun RPC on Solaris')
  6937.     CASE 32771
  6938.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6939.     CASE 32772
  6940.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6941.     CASE 32773
  6942.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6943.     CASE 32774
  6944.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6945.     CASE 32775
  6946.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6947.     CASE 32776
  6948.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6949.     CASE 32777
  6950.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6951.     CASE 32778
  6952.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6953.     CASE 32779
  6954.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6955.     CASE 32780
  6956.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6957.     CASE 32786
  6958.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6959.     CASE 32787
  6960.         StrCopy(servicedesc, 'sun-rpc : Sun RPC on Solaris')
  6961.     CASE 33333
  6962.         StrCopy(servicedesc, '\eb[TROJANS=Prosiak]\en')
  6963.     CASE 33434
  6964.         StrCopy(servicedesc, 'traceroute : traceroute use')
  6965.     CASE 33911
  6966.         StrCopy(servicedesc, '\eb[TROJANS=Trojan Spirit]\en')
  6967.     CASE 34324
  6968.         StrCopy(servicedesc, '\eb[TROJANS=BigGluck, TN, Tiny Telnet]\en')
  6969.     CASE 36865
  6970.         StrCopy(servicedesc, 'kastenxpipe : KastenX Pipe')
  6971.     CASE 39213
  6972.         StrCopy(servicedesc, 'sygatefw : Sygate Firewall management port V 3')
  6973.     CASE 40412
  6974.         StrCopy(servicedesc, '\eb[TROJANS=The Spy]\en')
  6975.     CASE 40421
  6976.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise, Agent 40421]\en')
  6977.     CASE 40422
  6978.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise]\en')
  6979.     CASE 40423
  6980.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise]\en')
  6981.     CASE 40425
  6982.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise]\en')
  6983.     CASE 40426
  6984.         StrCopy(servicedesc, '\eb[TROJANS=Masters Paradise]\en')
  6985.     CASE 40841
  6986.         StrCopy(servicedesc, 'cscp : CSCP')
  6987.     CASE 43188
  6988.         StrCopy(servicedesc, 'reachout : REACHOUT')
  6989.     CASE 43189
  6990.         StrCopy(servicedesc, 'ndm-agent-port : NDM-AGENT-PORT')
  6991.     CASE 43190
  6992.         StrCopy(servicedesc, 'ip-provision : IP-PROVISION')
  6993.     CASE 44442
  6994.         StrCopy(servicedesc, 'coldfusion-auth : ColdFusion advanced security/Sireminder')
  6995.     CASE 44443
  6996.         StrCopy(servicedesc, 'coldfusion-auth : ColdFusion advanced security/Sireminder')
  6997.     CASE 44818
  6998.         StrCopy(servicedesc, 'rockwell-encap : Rockwell Encapsulation')
  6999.     CASE 45000
  7000.         StrCopy(servicedesc, 'ciscopop : Cisco Post Office Protocol for Cisco IDS')
  7001.     CASE 45054
  7002.         StrCopy(servicedesc, 'invision-ag : InVision AG')
  7003.     CASE 45678
  7004.         StrCopy(servicedesc, 'eba : EBA PRISE')
  7005.     CASE 45966
  7006.         StrCopy(servicedesc, 'ssr-servermgr : SSRServerMgr')
  7007.     CASE 47262
  7008.         StrCopy(servicedesc, '\eb[TROJANS=Delta Source]\en')
  7009.     CASE 47557
  7010.         StrCopy(servicedesc, 'dbbrowse : Databeam Corporation')
  7011.     CASE 47624
  7012.         StrCopy(servicedesc, 'directplaysrvr : Direct Play Server')
  7013.     CASE 47806
  7014.         StrCopy(servicedesc, 'ap : ALC Protocol')
  7015.     CASE 47808
  7016.         StrCopy(servicedesc, 'bacnet : Building Automation and Control Networks')
  7017.     CASE 48000
  7018.         StrCopy(servicedesc, 'nimcontroller : Nimbus Controller')
  7019.     CASE 48001
  7020.         StrCopy(servicedesc, 'nimspooler : Nimbus Spooler')
  7021.     CASE 48002
  7022.         StrCopy(servicedesc, 'nimhub : Nimbus Hub')
  7023.     CASE 48003
  7024.         StrCopy(servicedesc, 'nimgtw : Nimbus Gateway')
  7025.     CASE 48556
  7026.         StrCopy(servicedesc, 'com-bardac-dw : com-bardac-dw')
  7027.     CASE 50505
  7028.         StrCopy(servicedesc, '\eb[TROJANS=Sockets de Troie]\en')
  7029.     CASE 50766
  7030.         StrCopy(servicedesc, '\eb[TROJANS=Fore, Schwindler]\en')
  7031.     CASE 53001
  7032.         StrCopy(servicedesc, '\eb[TROJANS=Remote Windows Shutdown]\en')
  7033.     CASE 54320
  7034.         StrCopy(servicedesc, '\eb[TROJANS=Back Orifice]\en')
  7035.     CASE 54321
  7036.         StrCopy(servicedesc, '\eb[TROJANS=Back Orifice, Schoolbus]\en')
  7037.     CASE 60000
  7038.         StrCopy(servicedesc, '\eb[TROJANS=Deep Throat]\en')
  7039.     CASE 60177
  7040.         StrCopy(servicedesc, 'tfido : IfMail')
  7041.     CASE 60179
  7042.         StrCopy(servicedesc, 'fido : IfMail')
  7043.     CASE 61439
  7044.         StrCopy(servicedesc, 'netprowler : netprowler')
  7045.     CASE 61440
  7046.         StrCopy(servicedesc, 'netprowler : netprowler')
  7047.     CASE 61441
  7048.         StrCopy(servicedesc, 'netprowler : netprowler')
  7049.     CASE 61466
  7050.         StrCopy(servicedesc, '\eb[TROJANS=Telecommando]\en')
  7051.     CASE 65000
  7052.         StrCopy(servicedesc, '\eb[TROJANS=Devil]\en')
  7053.     CASE 65301
  7054.         StrCopy(servicedesc, 'pcanywhere : PC Anywhere Remote Control')
  7055.     DEFAULT
  7056.         StrCopy(servicedesc, 'UNKNOWN')
  7057. ENDSELECT
  7058. ENDPROC
  7059.